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Avant-propos 


Tous les programmes de cet ouvrage ont été élaborés dans un souci cons- 
tant de clarté et de qualité, ce qui en rend l'utilisation attrayante. 


De nombreux domaines sont abordés: la vie pratique, les mathématiques, 
l'économie et surtout les jeux; jeux graphiques et musicaux, jeux d'adresse, 
jeux de réflexion, jeux de société... 


L'utilisation de chaque jeu et leur programmation sont largement expli- 
quées, ce qui permet à quiconque de créer ses programmes dans le même 
ordre d'idées. De plus, un exemple d'utilisation est fourni. A chaque 
programme vous découvrirez des astuces de programmation mais surtout 
passerez d'agréables moments. 


Je tiens à remercier les nombreuses personnes qui m'ont aidé lors de la 
réalisation de ce livre, surtout Patrick Zirah et Eric Berton qui m'ont 
conseillé et ont participé à l'élaboration du présent ouvrage. 
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Jeux pratiques 


Menu 


Il est indispensable d'établir un menu afin de disposer de plusieurs jeux et 
sous-programmes à l'intérieur d'un même programme dans votre 


CANON XO7. 

Exemple : 
1) Grapho 4) Piano 
2) Firefox 5) Trace 
3) Coureur 6) Autre 


Il suffira ensuite de presser l’une des touches 1, 2, 3, 4, 5 ou 6 pour que le 
jeu correspondant apparaisse. 


Programme : 


5 FONT$(233)=-"4,4,4,4,4,4,4,q" 
1@ PRINT" XXX MENU  XXX" 

15 CONSOLE, ,,1;,1 

28 PRINT'1)Grapho |4) Piano" 
38 PRINT'2)Firefox|5) Trace 

48 PRINT'"'S3)Coureuri6) Autre 

50 C$=INKEYS 

68 IF C$="" THEN 50 

78 Y=UAL(CCS) 

80 ON Y GOTO 100, 2000,500,1@008,4000,3@80 
, 78008, 8008,5000 

30 GOTO 18 

198 PRINT" GRAPHO" 

2008 PRINT" FIREFOX" 

528 PRINT" XX COUREUR XX" 

188@ PRINT" PIANO " 

9088 PRINT" xx MENU SUITE xx" 


Explications : 
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15 
20 


La fonction FONT$ sera expliquée ultérieurement dans le jeu 
Grapho”. 

Remise en place du son de déclic émis par les touches. Voir Piano”. 
Pour obtenir le trait de séparation, pressez les touches | GRAPH| puis 
[ 1 |. Cela correspond au caractère 233 défini en 5. Ne vous inquiétez 
pas s'il apparaît un autre caractère. Le trait vertical apparaîtra lors de 
l'exécution du programme. 

INKEY$ affectera à C$ la valeur de la touche pressée sous forme de 
caractère. 

Le programme attend qu'une touche soit pressée. 

On affecte la valeur du caractère pressé à Y. 

Lorsque Ÿ prendra la valeur 1 on se rendra à la ligne 200. 

Lorsque Ÿ prendra la valeur 2 on se rendra à la ligne 2000. 

Et ainsi de suite. Il n'est pas nécessaire que les adresses indiquées 


soient dans l’ordre numérique croissant. Cependant, les valeurs de Y 
doivent être, elles, dans l'ordre 1, 2, 3, 4... 
90 Lorsque Y est différent de 1, 2, 3, 4, 5 ou 6 le menu réapparaît. 


PouR Moi 
CE SERA 


UN GRAPHo 
ET UN FIREFOX 
BIEN GRILLE, 


/) \ ÆFRAH 


Biorythmes 


Combien d'entre nous ont des périodes de très bonne forme ou des 
périodes de dépression ? 


Il est possible de prévoir plus ou moins ces périodes, car elles sont dues 
pour 40% aux événements extérieurs: climat, bonne ou mauvaise 
nouvelle, chance... Mais il reste 60 % qui étaient jusqu'à présent imprévi- 
sible car liés à un rythme intérieur. 


Des chercheurs, à partir de plusieurs expériences, ont découvert que ces 
hauts et bas de votre forme étaient périodiques; ils ont donc cherché à en 
établir les périodes. C'est ainsi que naît cette nouvelle science: les 
biorythmes. 


D'après les expériences, la période de forme physique est de 23 jours, celle 
de la sensibilité 28 jours et 33 jours pour la forme intellectuelle (ou céré- 
brale). Cf. figure ci-dessous. 


Note sur 20 


bonne forme 


mauvaise forme 
Programme : 


1800 PRINT" XX BIORYTHMES xx" 

182@ PRINT'Date de naissance :" 

1930 INPUT'Jour";J 

1848 INPUT'Mois'";M 

1858 INPUT'Annee";A 

1868 S=(A-19201)X365.25+(M-1)X30.44+J-] 
127@ IF K=1 THEN 1110 

1888 T-S:K=1 

1838 PRINT'Date vouiue 

1120 GOTO 1030 


1110 
1129 
1130 
1140 
1150 
1160 
1170 
1182 
11930 
1228 
1295 
1210 


U=S-T 

2=23 

GOSUB 1320 

PRINT'"'Phys ique :'5N;"/20" 
2-28 

GOSUB 1328 
PRINT''Sensibilite:";N;"/20@" 
2=33 

GOSUB 1328 

PRINT''Cerebral :'3N;"/20" 
IF INKEY$="" THEN 1205 
INPUT'"1)Changement de date2)Prochai 


ne date de bonne forme";C 


1220 
1230 
1248 
1300 
1318 
1320 
1330 
1400 
1412 
1420 
1430 
1435 
1448 
1450 
1455 
1460 
1485 
‘470 
1475 


:480 


IF C=1 THEN 1830 

IF C2 THEN 1218 

GOTO 14008 
N=SINCCCU/2)-INTCU/2)3)X2X3,14159) 
N=INTCIBGXN)/100 
N=INTCNXID2)+1@ 

RETURN 

U=U+1 

a=23 

GOSUB 1300 

P=N 

2-28 

GOSIJS 1308 

S=N 

é=S3 

GOSIIB 1328 

PRINTPF;S3iN 

IF Z2XP+S+3XN<AG THEN ACTE 
U=LI+T 

AN=INTIU/365, 25) 
MO=INTCINT(OU-ANXx46S,25)/%Q. 44; 
JO=INTOU-ANXSGS, 25.-NOX3AQ. 44 1 
PRINTJU+I "2" 3MG+I "7" AN+: 49: 
GOTG iZi@ 


Explications : 


1060 S: Nombre de jours entre le 1°" janvier 1901 et la date J/M/A. 
1110 V = Nombre de jours de vie. 
1120 Z: période. 
1300 N: fonction sinusoïdale de Z. 
1320 N: note sur 20. 
1470 Pour la date de bonne forme, on donne un cœæfficient d'importance 
de la forme: 
physique de 2 
sensible de 1 
cérébral de 3 
Avec une moyenne de 15 on est en bonne forme. 


ù 
Jo To LA CLASSE” 
CAR MoN 


JE Suis 
ET J'EN PRoFIT € 
RIORYTHME EST. AV MEYLLEUR 
DE SA FORME ZTNTELLECTUELLE 


ET PHYSIQUE 


Qu‘ BEN 11 
“RARE SE QE ÇA Doir 

> HABiTuDE | 
CR x 


Espérance de vie 


Savez-vous combien d'années en moyenne selon: l'âge, le sexe, le métier. 


vous reste-il à vivre ? 


Ce serait une donnée intéressante pour vos projets d'avenir! 


Ce programme se base sur des données statistiques concernant l'espé- 


rance de vie à partir desquelles des fonctions ont été établies. 


Ainsi il est possible de connaître combien d'années il nous reste à vivre. 


Au cours de l'exécution du programme, lorsque vous ne connaîtrez pas la 
réponse à certaines questions (par exemple au sujet de votre métier si vous 
êtes étudiant) vous aurez la possibilité de donner une réponse intermé- 


diaire ou prévisible. 


Programme : 
108 PRINT" ESPERANCE DE UIE" 
208 INPUT'Uotre age";f 
250 IF A<G THEN 288 
260 IF AD>159 THEN 280 
278 IF A<1 THEN A=1 
320 INPUT'"'Uotre sexe :1)Masculin,; 2)Femin 
in"3sS 


40@ INPUT'Uotre travail:1)Tres manuel, 2 
JManuel, 3S)Peu manuel";T 
500 INPUT'UVUous travaillez dans le secteu 


r:1)Public, 2)}Prive,3)ne saié pas'";P 


510 
520 
530 
608 
728 
820 
850 
300 


IF P=1 THEN Q=1 
IF P=2 THEN Q=0 
IF P=3S THEN Q=.5 
E=-,922%XA+69.89 
IF A<S5Q THEN 1000 
E=-,S596%A+SS, 58 
IF A<82 THEN 1200 
E=-.25XxA+25.94 


330 IF A<9SS THEN 1000 

950 E=-0.0187%xA+3 

1200 F=SXT-5+5,3Xx(S-1)+Q 

1200 IF À>40 THEN F=EXF/33 

1300 E=E+F 

1400 E=INT(EX1080)/100 

1508 PRINT'"'Uotre esperance de vie:";E;'"a 
ns" 

1608 IF INKEY$<'"'" THEN 100 

1700 GOTO 1600 


Explications : 


600 à 900 Courbes et droites ajustées à l’aide des statistiques de l'INSEE 
et du programme ajustements. 


Exemple : 


Vous êtes un homme de 40 ans au chômage. 

Votre âge ? 40. 

Votre sexe 1) Masculin 2) Féminin? 1 

Votre travail: 1) peu manuel 2) manuel 3) très manuel? 2 
Secteur: 1) Privé 2) Public 3) Ne sait pas? 3 

Espérance de vie: 34,51 ans soit 34 ans et demi. 


OUTÉS LES Æ£ESPERANcES DE 
CALCULEE s 


TE N''HÉRITERAIS 
TANTE MAGcie 


QUE  PAWS 20 Awc 
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GRAPHO 


Objectifs : 


A la fois divertissant et utile, ce jeu permet de définir le caractère de votre 
choix de façon instantanée. 


Exemple : 


Définissons Le coureur sur 6 x 8 cases: 


O00O0OOOOCOO 


Préliminaires : 


Dans le tableau page 93 sont indiqués les caractères définis initialement. 
Pour calculer le numéro d'appel N correspondant à un caractère donné de 
ce tableau, on procède ainsi: soient x et y les abscisses et ordonnées du 
caractère choisi: 


N=1(16.x) + y 
il suffira alors de presser: 


?CHRS(N) 


pour obtenir le caractère choisi. 


Exemple : 


” …, 


Pour appeler le caractère ” & 
sur le tableau: abscisse — 7; 
ordonnée = 15 
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d'où: 


N=(16x2) + 15 = 127 


? CHR$(127) 


Si l'on définit le coureur au numéro 233, il suffit de presser les touches 
GRPHI| puis Hi] pour l'obtenir. Ne sont redéfinissables que les caractères 
compris entre 128 et 159 ou entre 224 et 271. 


Programme : 


128 
118 
128 
130 
140 
160 
178 
180 
190 
280 
210 
220 
230 
240 
268 
265 
270 
288 
298 
388 
310 
C6); 
320 
330 
350 
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PRINT" GRAPHO" 

DIM AC8) 

FOR I=1 TO 8 

PRINT'Ligne numero ";l;" en base 2"; 
INPUT À 

A=120XA 

B=A :D=0:E=2 

B=INTCB) 

B=B/10 

C=12XCB-INTCB)) 

IF C>1 THEN 358 
D=D+Cx2*E 

E=E+1 

IF E<8 THEN 1808 

ACID=D 

PRINTD j'en base 12" 

NEXT I 

PRINT'Caractere numero"; 
INPUT G 

ON ERROR GOTO 280 
FONT$(G)="ACI1),AC2),ACS),ACA4J,ACS)J,A 
AC7),AC8)" 

PRINTCHR$(G) 

END 

PRINT'ERREUR ":GOTO 138 


Explications : 


110 
150 
260 
280 


310 


300 


On définit 8 mémoires numérotées A(1), A(2), …, A(8). 
Il ne peut y avoir plus de 6 points par ligne du caractère. 
A(l) prendra successivement les valeurs de Ax100 en base 10. 


Si l'on veut que le caractère reste défini, on choisira un numéro de 
caractère définissable (obtenus par GRPH). 


FONT$ permet de définir le caractère. En prenant l'exemple du 
coureur, on aura: 
FONT$(233) = ‘’O, 40, 112, 160, 32, 208, 16, 0‘. 


En faisant: ? CHR$(233), on obtient le dessin du coureur. 


Lorsqu'un code n'est pas définissable par l'utilisateur, la machine 
devrait mentionner erreur” à la ligne 310. Mais ici on préférera en 
cas d'erreur que la question soit reposée. 
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Jeux graphiques 
et musicaux 


Tracé d’une courbe 


Dans un repère orthogonal, la courbe de votre choix se dessine sous vos 
yeux. 


Soit f une fonction polynôme réelle donnée du type: 
f(X) = AX4+BX°+CX2+DX+E 


Vous choisissez les valeurs À, B, C, D, E ainsi que les vecteurs unitaires des 
axes Ox et Oy. Sur votre écran se dessine la courbe de la fonction f dans le 
repère choisi. 


Programme : 
6RB8G PRINT"'TRACE D’UNE COURBE" 


8012 PRINT'"Courbe: Y=AX"4+BX73+Cx"2+DX+E 
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802@ INPUT'A=";A 

8030 INPUT'B=";B 

824@ INPUT"C=";C 

8250 INPUT'"D=";D 

8060 INPUT'E=";E 

8061 INPUT'Echelle Y:Nombre de points/un 
ite";l 

8062 INPUT'Echelle X:Nombre de points/un 
ite"3;U 

8063 IF LXU=-0 THEN 8061 

8864 CLS 

8066 U=]l/U 

8067 U=I1/U 

8068 LINE(G,24)-(120,24) 

8269 LINE(48,B8)-(40, 32) 

8870 FOR X=@ TO 119 

8875 2=(x-48)/ÙU 

8080 TY=AX2Z"4+BX2"3+CXx2"2+DXx2+E 
8085 Y=Y/U 

8090 Y=23-INTCY) 

8110 IF Y>31 THEN 8160 

8120 IF Y<A THEN 8160 

8125 IF X=-@ THEN 8150 

8130 IF ABSCS-YJ<2 THEN 8150 
8135 ON ERROR GOTO 8150 

8137 IF ABSCS-Y)>9 THEN S=Y 
8140 LINECX-1,SJD-CX,Y) 

815@ PSETCX; Y) 

8155 S=Y 

816@ NEXT x 

8200 IF INKEY$="" THEN 8200 
8250 INPUT"Changement d’echelle CO/N)";C 
$ 

826@ IF C$="0" THEN 8061 

827Q IF C$='"N" THEN 8008 

8280 GOTO 8250 

8500 8000 


Explications : 


8061 


8062 


8064 
8068 
8069 
8070 
8110 
8130 


8150 
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U sera le nombre de points de l'écran contenus dans une unité de 
l'axe des Y, donc dans une unité verticale. 


V sera le nombre de points de l'écran contenus dans une unité de 
l'axe des X, soit dans une unité horizontale. 


Fonction d'effacement de l'écran. 

Tracé de l'axe des X. 

Tracé de l'axe des Y. 

On parcourt l'ensemble des points de l'axe des X. 
à 8120 On évite de sortir de l'écran. 


à 8140 On trace une ligne verticale entre deux points successifs 
trop éloignés. 


Le point de coordonnées X, Y est imprimé. 


Exemple : 


Prenez les valeurs: 


A=-—1 
B= 1 
C= 8 
D=—9 
E= ‘1 


Échelle Y:—0,2 
Échelle X:  O,2 


Et observez la courbe qui se dessine sur votre écran. 
A vous! 


Le coureur en action 


Le coureur est un exemple de dessin animé, simple, qui vous permettra 
d'en réaliser de plus sophistiqués en vous basant sur ce modèle. 


Programme : 


588 PRINT" %X%X COUREUR XX" 
501 FONT$(153)-"0,40,112,160,32,208,16,0 


582 FONT$(1356)="0,4,4,4,4,12,4,08" 
595 PRINT'#"; 

518 J=-J+1 

515 IF J>19 THEN J=@ 

520 FOR I=1 TO IQG:NEXT I 

530 PRINTCHRSC&H@C) 

548 FOR I=1 TO J-1:PRINT" ‘“; 


545 NEXT I 

558 PRINT“A"; Pour les caractères 
graphiques consultez 

560 FOR I=1 TO J:PRINT" ‘; les explications. 
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578 PRINTCHRS$SC&HBC) 

588 FOR I=1 TO J:PRINT" ‘; 
598 NEXT I 

608 GOTO 5085 


Explications : 


501 On affecte le dessin du coureur au caractère 153 correspondant aux 
touches [GRPH] puis [E]. Voir GRAPHO. 
502 On affecte le dessin suivant au caractère 136 correspondant aux 


touches [GRPH] puis [A]. 


Coordonnées Coordonnées 
figure grapho 
O (0) 
1 4 
1 4 
1 4 
1 4 
11 12 
1 4 
O0 O 


505 On presse les touches |[GRPH puis [E] pour le caractère entre 
guillemets. 


510 J: Nombre d'espaces parcourus par le coureur. 


550 Pressez les touches puis [A]. 


570 Cette fonction efface l'écran. 
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Synthétiseur 


Un véritable synthétiseur à votre disposition grâce à un programme relati- 
vement court. 


Les touches sont disposées comme sur un vrai piano (cf. figure). Les 
bémols y sont représentés par des cases sombres. 


La touche [1] raccourcit la durée du son. 
La touche 1 | allonge la durée du son. 


La touche d'espacement arrête le synthétiseur. 


raccourcit la durée de la note 


COLE ECEI 


etour au menu 


allonge le son 


Programme : 


18 CLS 

90 PRINT “ XX SYNTHETISEUR XX" 
128 CONSOLE, ,,0 

150 C=5 

208 A$=INKEYS 

218 IF A$="" THEN 200 

220 IF A$="1" THEN C=C-1 

230 IF A$="]" THEN C=C+1 


240 IF A$=" “ THEN 780 

258 IF C<1 THEN C=1 

488 R=INSTRC"Q2WSERSTGY/UIS08P@ CAZSXCFU 
GBNIMK,L./7:?",A$) 

500 BEEP R,C 

550 PRINT AÀ$; 

608 GOTO 288 

788 CONSOLE, ,;;,1;,1 


Explications : 


100 On retire le cliquetis des touches. 
150 Oninitialise la durée du son. 


400 A prend les valeurs 1, 2, 3, 4, … lorsque A$ prend respectivement les 
valeurs Q,2, W, 3, … 


500 Son. 
550 On fait apparaître sur l'écran la touche pressée. 
700 Remise en place du cliquetis des touches. 


Utilisation : 


Presser [1] deux fois pour raccourcir la durée du son. Puis jouez "Au clair 
de la lune”: 


IIIOPOIPOOI (deux fois) 
OOOOYYOIUYTP (et recommencez) 


20 


Télécran: Dessins à volonté 


Objectif : 


Vous allez pouvoir grâce à ce programme réaliser les dessins de votre choix 
sur la totalité de votre écran, soit 120 x 32 points. 


Il suffit de promener le curseur à droite, à gauche, vers le haut ou vers le 
bas. L'effacement est possible point par point et de façon instantanée. 


Programme : 


4888 CLS 

4028 C$=INKEYS 

4@5Q IF C$="]" THEN À 
404@ IF C$=":" THEN À 
4050 IF C$="[" THEN B 
4060 IF C$="?" THEN B= 
407Q IF C$="@0" THEN D 
4088 IF C$="1" THEN D 
4090 IF A<@ THEN A=Q 
4100 IF B<@ THEN B=0 
4110 IF B>31 THEN B=S1 

412@ IF A>11S THEN À=119 
4130 IF D=1 THEN PSETCA,B) 
4140 IF D=Q THEN PRESET(A,B) 
4158 GOTO 48208 


Explications : 


4000 Cette fonction efface l'écran. 

4090 à 4120 On évite de sortir de l'écran. 

4130 Si la touche a été pressée, le point de coordonnées A,B s'imprime. 
4140 La fonction PRESET efface le point de coordonnées A,B. 
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Utilisation : 


RUN 


Pour dessiner : Presser la touche[ 1 {Un point apparaît sur le coin supérieur 
gauche). 


Pour effacer: Presser la touche [o] 


Pour aller: à droite presser [1] 
à gauche presser [: | 


Pour aller: vers le haut presser [TC] 


vers le bas presser 
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Cinéma musical: Rock’n Roll 


Présentation: 


Sur votre écran, deux couples dansent le Rock'n Roll sur une musique 
connue. Impressionnant ! | 


Un petit programme truffé d'astuces permet ce résultat. Vous pourrez utili- 
ser par la suite ces astuces de programmation qui vous ouvriront de 
nombreux horizons. 


Ébahi, vous constaterez qu'en pressant la touche le rythme musical 
s'accélère; /es danseurs suivent | Pressez plusieurs fois; le rythme 
s'accélère davantage. Pour ralentir le rythme pressez 


Encore plus fort ! Vous pouvez changer d'octave en pressant la touche Fa]. 
Enfin, si vous pressez la touche : Surprise ! ! Changement de mélodie ! 


A vous de jouer avec ces quatre touches pour obtenir les mélodies désirées 
pendant que les deux couples infatigables de danseurs suivent votre 
rythme. 


Programme : 


128 PRINT" %x CINEMA MUSICAL XX" 

118 FOR I=@ TO SOB:NEXT I 

138 CONSOLE, ,,0@ 

140 FONT$(224)="0,16,28;,16,16,16,40,72" 
150 FONT$(225)="0,40, 240,52, 52, 52,88,64" 
160 FONT$(228)="0,84,56, 16, 16,16,124,8" 
178 FONT$(229)-"0,160,112,40, 52, 352,80, 72 
18Q FONT$(231)="4,8,4,4,4,4,8,8" 

1390 FONT$(233)="128, 104,48, 160,352, 32,144 
, 80" 

195 C=S:A=0:D=1 :E=1 

200 Z$=INKETS$ 

205 IF 2$=""" THEN D=-D 

21Q@ IF 2$="1" THEN C=C+1 
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215 
228 
225 
230 
2408 
250 
260 
278 
280 
230 
235 
320 
328 
330 


IF 2$=" 


-" THEN E=-E 


IF 2$="2" THEN C=C-1 


IF C<«1 
B=B+1 

IF B=S 
IF B=S 
IF B=7 
IF B=8 
IF B=S 
CLS 

IF D<@ 
LOCATE 
PRINT" 
IF E>0 


THEN C=1 


THEN À=S 
THEN À=0 
THEN A=7 
THEN AÀ=S 
THEN B=1 

Pour mettre en place 


_ les caractères 
THEN A=A+12 graphiques reportez- 
8,1 vous aux explications 
? aux numéros de lignes 


à Lt XE s 5 correspondantes. 
THEN BEEP 1+A,C+2:BEEP A+S,C+ 


2:BEEP A+8,C+2 
340 IF E<@ THEN BEEP I1+A,C:BEEP A+S,C+4: 
BEEP At8,C:BEEP 1+A,C+tS 


350 
360 


48e 
Cr2Z 
410 
4208 
448 
450 
C+2 
46e 


CLS 

LOCATE 
PRINT" 
IF E<a 


IF E>0 
CLS 

LOCATE 
PRINT" 
IF E>8 


IF E<@ 


PS 
ik 4. 
THEN BEEP A+5,C+1:BEEP A+8,C+ 


THEN BEEP At10,C+2:BEEP At11, 


81 
< OE + 
THEN BEEP At10,C+2: BEEP At8, 


THEN BEEP I1tA,C:BEEP AtS,C+l: 


BEEP 2,2:BEEP A+8,C+tS 


500 
518 
550 
548 
558 


CLS 

LOCATE 
PRINT" 
IF E>0 
IF E<@ 


8,1  , 
XR  X 
THEN BEEP A+5,C+3 


THEN BEEP ItA,C:BEEP A+S,C+1: 


BEEP 0,2:BEEP At8,C+8 
608 GOTO 208 
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Explications : 


110 
130 
140 
150 
160 
170 
180 
190 
195 
230 
300 
320 


380 
440 
530 


Légère attente. 

On annule le cliquetis des touches. 

On crée le caractère qui s'obtient en faisant 
On crée le caractère qui s'obtient en faisant 


On crée le caractère qui s'obtient en faisant 
On crée le caractère qui s'obtient en faisant 


On crée le caractère qui s'obtient en faisant | GRPH 

On crée le caractère qui s'obtient en faisant [1] 
On initialise à 5 la durée du son. 

B: Niveau de la mélodie. 

Localisation du curseur. 


Pour obtenir le dessin entre les guillemets, on presse les touches 
suivantes : 


[erPx] [7] [2] CT CT Te] ]TerPx] 


étant la touche d'espacement. 
Ne vous inquiétez pas si les dessins n'apparaissent pas tout de suite ; 
ils apparaîtront lorsque le programme tournera. 


Touches: [6RPH| [_] [© [0] [_] [7] (2 [orrul 
Tours: [erra] 1] Ci] ©] (1 Loi Lu] Conrel 
Touches: [er] [0] O1 ©) C1 C1 CO (enr 


PÉn É É T 
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3 
Jeux mathématiques 


Factorielles infinies 


Définition d’une factorielle : 


O1: =1 
NI—1x2x3x4... X(N—1)XxN 


Objectif : 


Peu nombreuses sont les machines qui calculent les factorielles. Mais en 
connaissez-vous qui calculent (500 !) ? 


Au-delà de 691!, la capacité des calculatrices de poche est dépassée 
(69 !— 1,7112245 x 108). 
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Le Canon X07 n'a pas vocation de calculateur scientifique, et pourtant un 
programme assez simple vous permettra de calculer des factorielles 
impressionnantes | 


Le temps de calcul est parfois assez long pour les factorielles de nombres 
élevés, le Canon X07 a la courtoisie de vous annoncer à l'avance le temps 
qu'il lui faudra pour effectuer ce calcul à la seconde près!!! 


Programme : 


2808 


PRINT'FACTORIELLES INFINIES" 


7818 INPUT'Factorielle de'";N 
7@2@ IF N<Q OR NOINTCN) THEN 7210 
7030 IF N=@ THEN PRINT"@9= 1":GOTO 7818 
7835 IF N>12@ THEN 7208 
7848 Q=N:W=0 
705@ FOR I=1 TO N-1 
706@ Q=QXI 
7080 IF Q>=1Q THEN Q=Q/12:W=W+1:GOT0O 788 
(2) 
7100 NEXT I 
2128 PRINTN;"9 =";Q;"x1Dr"5N; 
7130 INPUT" °35P 
2148 GOTO 7200 
7208 X=INTC.@6XN"1.155) 
7218 R=INT(X/60) 
7220 T=Xx-RX60 
7238 PRINT'Attente :";3R;'"mn!";T;"sec"; 
7248 PRINT" - Voulez-vous toujours";N; 
725@ INPUT"9 CO/N)";U$ 
7278 IF U$="0" THEN 72848 
7280Q IF U$='"N" THEN 72000 
7300 GOTO 7232 
Explications : 


7020 On ne considère que les nombres entiers positifs. 
7030 Par définition O !=1. 
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7035 Le temps d'attente ne sera indiqué que lorsque l'utilisateur deman- 
dera le calcul d'une factorielle supérieure à 100. 


7040 Q est la partie réelle du résultat. 
W est la partie en exposant du résultat. 
N != Q x 10W. 

7080 Lorsque Q est supérieur ou égal à 10 on divise Q par 10 et l'expo- 
sant s'accroît d'une unité. Ainsi la valeur finale affectée à Q est 
toujours comprise entre O et 10. 


7200 Le nombre X de secondes d'attente est fonction du N choisi. La 
fonction utilisée est : X — 0,06 x N1:155, 


7210 à 7220 Séparation Minutes/Secondes. 


Exemple : 


Factorielle de ? 70 
701—1.197857166997 x 1019 

? 
Factorielle de ? 170 
Attente : O mn 22 sec — 
Voulez-vous toujours 170! (O/N)? O Return 
170 ! = 7.2574156153103 x 10°% 


Ajustement d’une courbe à l’aide de points 


A partir d'un nuage de points il est souvent très utile d'ajuster la droite ou la 
courbe qui représente le mieux ce nuage. Cela donne une forme générale à 
une série statistique et permet de faire des prévisions ou de se renseigner 
sur un point donné sans disposer de l'ensemble des points. 


Ainsi, ce programme permet d'ajuster au mieux la courbe désirée, droite, 
hyperbole, parabole ou exponentielle, et de faire des prévisions qui 
suivraient la même tendance. 
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Ajustement par 
une droite 


Ajustement par 
une hyperbole 
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Ajustement par 
une parabole 


Ajustement par 
une exponentielle 
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Programme : 


18 
20 
30 
40 
58 
55 
6a 
78 
80 
90 
120 
12@ 
138 
150 
160 
165 
1270 
125 
188 
13@ 
220 
210 
220 
iqUu 
225 
ile 
230 
232 
235 
240 
250 
26@ 
265 
270 
cou 
280 


PRINT'AJUSTEMENT D’UNE COURBE" 
INPUT ‘Nombre de points' ;N 
FOR I=1 TO N 
INPUT ‘"Abscisse'";A 
INPUT ‘“Ordonnee";90 
2=L0G(18) 
B=B+A 
C=C+0 
D=D+A°2 
E=E+0"2 
F=F+AXx0 
H=H+0%XA"2 
K=K+ATS 
M=M+A°4 
IF O<=@ THEN 200 
KXA=XA+LOG(A)/2 
U=U+LOG(0)/2 
KXC=XxC+(LOG(A)/2)72 
S=S+AXLOG(O)/2 
XY=XY+LOG(CA)XLOG(0O)/272 
NEXTI 
PRINT "Type de courbe: 
PRINT" —- Droite (1), Courbe hyperbol 
e (C2),'"; 
INPUT" Paraboiique (3) ou exponentie 
C4)" ;P 
ON P GOTO 235,400,608,8@8 
GOTO 218 
IF D-B°2-0 THEN 622 
U=(F-BXC/N)/CD-BXB/N) 
W=C/N-UXB/7N 
PRINT'Y=" SU; 'XX+" SU 
IF INKEY$="" THEN 265 
PRINT “Prevision (1), changement de 
rbe (2),"; 
INPUT" ou fin C3)";Xx 
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ON X GOTO 312,212,1000 
GOTO 270 

ON P GOTO 515,500,/50,S930@ 
INPUT'"Abscisse :X='";4 
O=AXU+U 
PRINT'"Ordonnee :Y=" ;0 
IF INKEY$="" THEN 348 
GOTO 270 

IF D-B*2=-0 THEN 622 
XM=XA/N : YM=U/N 

U= CXY-XMXU)/CXC-XMXXA) 
W=LUY/N-UXXA/N 

W= 127 
PRINTEYEM SU; TKXNMIU 

IF INKEY$="" THEN 460 
GOTO 278 

INPUT ‘Abscisse :X=";Xx 
Y=WXX TU 

PRINT "Ordonnee Y='";Y 
IF INKEY$="" THEN 525 
GOTO 270 
U=MXCDXN-B72)-KXCKXN-DXB)+DXCKXB-D°2 


IF U<>Q THEN 630 

PRINT "Pas de solution ;" 

IF INKEY$="" THEN 624 

GOTO 218 
W=KXCBXC-FXN)-DXxCDXC-FXB)+HXC(DXN-B°2 


W=W/U 
R=DXCFXD-KXC)-HXCBXD-KXN)+MXC(BXC-FXN 


R=—X/U 
Y=HXCKXB-DT23-NXCFXB-DXC)+KXCFXD-KXC 


Y=Y/U 
PRINT'Y=" 
PRINT WU TKXN2#T SX SERRE IT 


718 IF INKEY$="" THEN 718 
72@ GOTO 278 

758 INPUT "fAbscisse X=";L 
760 L=WXLr2+XXL+Y 

7?7@ PRINT “Ordonnee Y=";L 
775 IF INKEY$="" THEN 725 
?8@ GOTO 270 

800 ExX=(S-BXU/N)/CD-BXB/N) 
810 EB=(CU-EXXBI/N 

828 AX=IQTEX 

830 Bx=107"EB 

840 PRINT'Y=":5BX; X" 5 AX TX" 
85Q IF INKEY$="" THEN 850 
86Q GOTO 270 

908 INPUT 'Abscisse X=";A 
918 Y=BXXAXrA 

928 PRINT'Ordonnee Y=";Y 
95Q IF INKEYS$="" THEN 950 
38 GOTO 270 

1288 END 


Explications : 


10 à 200 Définition des variables. 
210 à 230 Choix de la courbe. 
270 à 310 Choix, prévision ou changement de courbe. 
235 à 350 Droite. 
400 à 530 Courbe hyperbolique. 
600 à 780 Courbe parabolique. 
800 à 980 Courbe exponentielle. 


Exemple : 


Par exemple supposons la série statistique de la dette y en milliards de 
dollars constants des pays en voie de développement (Source OCDE): 
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En dessinant un rapide graphique on s'aperçoit qu'il s'agit d'une fonction 
exponentielle. 


Ainsi, en utilisant le programme : 


Nombre de points ? 4 
Abscisse ? 1 
Ordonnée ? 116 
Abscisse ? 5 
Ordonnée ? 180 


Et ainsi de suite; Puis vous choisirez le type de courbe: 
Dans ce cas pour “exponentielle” vous presserez: 
Et on obtient la courbe y = 102,57(1,123)* 


Pressez une touche quelconque, puis vous avez le choix entre faire une 
prévision et un changement de courbe. 


Si l'on fait une prévision : x = 9 (soit 1979) on obtient y = 291,76. (Ce qui 
est près de la réalité: 294). 


Ajusté par une droite on aurait obtenu pour 1979 y — 264,89. 
Ce qui correspond peu à la réalité. 


Ajusté par une parabole on aurait obtenu pour 1979: y — 275,36. 
Par une hyperbole : y = 236,89. 
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Jeux économiques 


Calcul de votre impôt 


Voici un moyen rapide de calculer ses impôts et de voir combien payent les 
autres, selon leurs gains et leur situation familiale. 


Bien entendu, ce programme ne tient pas compte des cas très particuliers 
d'allègements fiscaux ou autres. 


Programme : 


188 PRINT'"'X%* CALCUL DE UOTRE %X IMPOT SUR 

LE REUENU" 

150 IF INKEY$='"" THEN 150 

200 INPUT'Nombre de personnes dans votre 
foyer fiscal";P 


35 


36 


S20 IF P<=@ OR P<INT(P) THEN 280 


400 IF P>2 THEN P=P/2+ 
458 PRINT'"'Cela fait ";P 


1 
s'parts" 


SR INPUT'"'Quel est VLotre revenu annuel n 


et global en Francs'";R 
688 R=IBXINT(R/10) 

658 Q=R/P 

?@@ IF Q<-12628 THEN I 
828 IF Q<=-1319@ THEN I 
OTO 3200 

908 IF Q<=15648 THEN I 
:GOTO 3200 

1288 IF Q<-24740 THEN 
P):GOT0O 3280 

1188 IF Q<=31810 THEN 
):GOTO 3208 

1208 IF Q<-39970Q THEN 
:GOTO 3200 

1308 IF Q<-48360 THEN 
) :GOTO 30820 

1400 IF Q<=557S80 THEN 
P):GOTO 3200 

1500 IF Q<=92970 THEN 
:GOTO 3220 

1600 IF Q<=127860 THEN 
5SXP) :GOTO 3000 

1708 IF Q<=15125@ THEN 
XP) :GOTO 32820 

1828 IF Q<=172040 THEN 
P):GOTO 3200 

1328 IF Q<=19500@ THEN 
):GOTO 3208 


=Q@:GOTO 3200 
=CRX,85)-C631XP):G 


=CRX,1)-(1230,5XP) 


I=CRX,.15)-(2272,5%X 


I=CRX,2)-CS5508,5XP 


I=CRX.25)-(4S00XP) 


I=CRX,3)-(6898.5XP 


I=CRX,35)-(93316.5X 


I=CRX.4)-C12126%P) 


I=CRX,45)-(16754, 


I=CRX,5)-(23147.5 


I=CRX,55)-(32710Xx 


I=CRX,6)-C33312%P 


2888 I=CRX.65)-(49062XP) 


308@ PRINT'Uotre impot 
cs" 

4008 IF INKEY$="" THEN 
4128 GOTO 1820 


a payer: ';1l;'Fran 


a4e08 


Explications : 


400 Au-delà de la deuxième personne, chaque personne à charge donne 
une demi-part. 


700 Lorsque le quotient familial annuel est inférieur à 12 620 F, on ne 
paie pas d'impôt. 


Exemple : 


Vous êtes marié, père de trois enfants et votre revenu annuel net global est 
de 130 000F. 


RUN puis pressez une touche quelconque. 
Nombre de personnes dans votre foyer fiscal ? 5 
Cela fait 3,5 parts. 

Revenu annuel net global? 130 000. 

Votre impôt à payer: 15 350 F. 
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Jeu d’entreprises 


Objectif : 


Les joueurs mettent à l'épreuve leur talent de chefs d'entreprise dans un 
marché où la concurrence est déterminante. (1 à 6 joueurs). 


Règles du jeu: 
Chaque joueur dispose de deux sociétés. Chaque société démarre avec un 
capital initial de 60 000 F. 


Le but du jeu est de dégager des profits dans la vente d'un guide 
touristique. 


Une société peut avoir de graves problèmes si elle dose mal ses investisse- 
ments. || est possible d'emprunter, mais l'emprunt coûte cher (20 % d'inté- 
rêt par an). 


Lorsque le capital restant ne couvre plus les frais fixes (main d'œuvre, 
amortissements des machines, loyer des locaux, …) la société fait faillite. 


Déroulement de la partie : 


A) Entrée des données 
— Indiquer le nombre de sociétés et leurs dénominations. 


— Lorsque le nom d'une société apparaît, seul le propriétaire de cette 
société est autorisé à voir l'écran de l'ordinateur. 


— Après pression sur une touche quelconque de l'appareil, il doit 
répondre aux questions qui lui sont posées: 


— Nombre d'articles fabriqués ? (frais de fabrication: 10 F par article.): 
Exemple : 3000. 


— Supplément de qualité ? (Supplément ajouté aux 10 F de coût pour une 
meilleure qualité de produit): Exemple: +2. 


— Nombre de points de vente ? (Les frais de gestion d’un point de vente 
sont de 100 F par an, mais il est indispensable de choisir suffisamment 
de points de vente pour écouler la production): Exemple: 80. 


38 


ALORS HMAÏNTENANT  T'ACHETE 
MOULINEX, GILLETTE ET MAN POWER 
Er T'INONDE LE MARCHE: 
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— Le budget marketing-publicité a des effets sur la période en question, 
mais une partie de ces dépenses agira encore les années suivantes: 
Exemple: 6 000 F. 


— Prix de vente au public: Ce prix doit au moins couvrir les dépenses et 
dégager un profit, mais s’il est trop élevé par rapport aux concurrents, il 
sera très difficile de vendre; Exemple: 30 F. 


— Le montant des intérêts du découvert apparaît sur l'écran. Pour conti- 
nuer presser une touche quelconque. Le nom d'une nouvelle société 
apparaît. 


B}) Résultats par société 


Tous les joueurs ayant entré leurs données pour l'année en question, les 
résultats apparaissent. Cependant ils sont confidentiels. Seul le propriétaire 
regarde les résultats de sa société. 


Après les résultats, il est possible de faire une pause momentanée ou 
même pour quelques jours (répondre O). Pour éteindre la machine faire : 


SLEEP 


Si l'on veut reprendre la partie faire: 


ON] CONT 


C) Si vous possédez une imprimante 


Vos résultats annuels s'imprimeront automatiquement. Prenez donc soin 
de conserver l'imprimante sous tension. 


Les résultats imprimés sont à la disposition de tous les concurrents: 


— Prix de vente, 

— Budget approximatif Marketing-Publicité, 
— Nombre de points de vente, 

— Qualité en valeur ajouté. 


D) Si vous ne possédez pas d'imprimante 


Remplacez les lignes de programmation 6100 à 6400 par: 
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6190 GOTO 6520 

6500 PRINT" %xx RESULTATS xx” 

6520 FOR I=@ TO N-1 

653@ PRINT" Societe ":;AS$SCI) 

654@ PRINT'Prix de vente :";ACI+AXN) "EF" 
655@ 2=1G0XINTCCACI+SXNIXC. S+RNDCB)))X.0 
1) 

6555 IF INKEY$="" THEN 635355 

656@ PRINT'Budget approx, market ing-pub" 


iè3"F" 

6565 IF INKEY$="" THEN 6565 

6578 PRINT'Nombre de points de ventes :"; 
ACI+6XN) 


6575 IF INKEY$="" THEN 65275 

658A PRINT'Qualite en Valeur ajoutee:";A 
CI+7XN) 

6585 IF INKEY$="" THEN 6585 

6688 NEXT I 

6700 GOTO 5088 


E) Le vainqueur 


Le gagnant est celui qui en fin de partie (soit au bout de six ans ou six 
périodes) possède le capital le plus élevé dans l'une de ses sociétés. 


Programme : 


5208 PRINT" %X ETUDE DE MARCHE X" 

5010 DIM AC120) 

582@ INPUT'Nombre de societes'";N 

5050 FOR I=@ TO N-1 

5048 PRINT'Nom de la societe numero ";l+ 
1; 

5250 INPUT A$CI) 

5060 ACI+N)-620000 

5078 NEXT I 

5080 FOR I=@ TO N-1 
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5030 A=ACI+N) 

5108 PRINT'Societe ";AS$S(I) 

5110 F-15000+1000XCINT(AC(I+8XN)/499)) 
5115 IF INKEY$="" THEN S115 

512@ PRINT'Frais fixes=";F 

5130 A=A-F 

5140 IFA<OTHENPRINT" %X FAILLITE 200 x'":A 
CI+N)=-2:GOT0 5760 

5150 K=K+] 

2160 IF K=26 THEN 5128 

3180 PRINT'Reste:";3A;5'F —- Stock:";Ù; 
5190 INPUT'"'- Vous fabriquez(1@F/unite)"; 
Ÿ 

5195 ACI+B8XN)=Y 

5208 ACI+SXN)=ACI+SXNI+Y 

5218 A=A-YXI0 

2229 X=X+ACI+SXN) 

323 PRINT'Reste :";A 

5248 INPUT'"Supp iement qualite/Cout fabri 
cation';Q 

9245 ACI+/7XN)=Q 

5258 A=A-ACI+SXNIXQ 

2268 PRINT'Reste :";A 

5400 INPUT'Nombre de points de ventes (CC 
out :100F)";P 

5420 A=A-PX120 

5430 PRINT'Reste:";A 

5440 M=MX.2 

5500 INPUT'Budget market inga-publicite";e 
5510 M=M+2 

5528 A=A-2 

5532 PRINT'Reste : ";A 

5540 INPUT'Pr:x de vente public";ù 

3558 ACI+4XN)=U 

5560 K=(M°2)/19278+1 

59/79 IF M>17000 THEN K=S,89+M1/1275 

5588 L=(Q+1)*.3-,5 


5590 IF U>120 THEN R=@:GOTO 5650 
5600 IF U>39.93 THEN R=,.28/CU-59) 
50 

5628 R=(16988-0Ur2)*.5/10 

2650 T=48XPT,5XKXLXRX4 

566@ IF T>8200 THEN T=7220+TX.I1 
26/8 ACI+2XN)=T 

5680 IF A>=Q THEN 5750 


:GOTO 56 


5700 PRINT'Decouvert à 20% de'";-A; 
5718 PRINT" Soit:";-AX.2;"F d’interet" 


5/28 A=AXI1.2 

5758 ACI+N)=A 

576@ IF INKEY$="" THEN 5768 
2/63 ACI+SXN)=2Z 

9765 PRINT 

5/68 PRINT 

9778 ACI+6XN)-P 

5788 NEXT I 

58280 x=ABS(I1.1-*xX/120000) 
5810 FOR I=-Q TO N-1 

5820 FOR J=8 TO N-1 


5830 IF ACI+2XN)>ACJ+2XN) THEN ACJ+2XN)= 


ACJ+2XNIXX 

984 NEXT J 

2858 NEXT I 

59308 FOR I-@ TO N-1 

5910 IF ACI+N)=-2 THEN 68058 
5929 PRINT'Societe ‘";A$(I) 

5925 IF INKEY$='"" THEN 59325 
3930 U=ACI+3SXN) 

5940 IF ACI+2XN)DU THEN C=U:GOTO 
5950 C=INT(ACI+2XN)) 

3960 PRINT'Uentes:";C;'unites à 
NJ3"F" 

5965 IF INKEY$="" THEN 5965 
5972 D=ACI+A4XNIXC 

359380 ACI+NI=ACI+N)+D 


3360 


FiACI+A4X 
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5990 i=Ù-C 

6800 PRINT'Reste stock:";u; Cout 4F/unit 
e" 

6818 ACN+IJ=ACN+I)-Ux4 

6828 PRINT" Caisse: ‘;ACI+N) 

6832 ACI+SXN)=UÙ 

62480 IF INKEY$="" THEN 6040 

6042 PRINT 

6244 PRINT 

6ASA NEXT I 

6062 INPUT'Fait-on une pause (O/N)";2Xx$ 

6878 IF 2x$="0" THEN STOP 

6088 :F 2*x$="N" THEN6100 

6890 GOTO 6060 

6122 ON ERROR GOTO 5080 

6118 LPRINTCS;:3]" XXX RESULTATS  XXX 


6128 FOR I=@ TO N-1 

6130 iPRINT(2,2]" Societe ‘";AS$(I) 

6140 LPRINTI2,@]' Prix de vente : ‘;ACI+A4XN 
Jas Fe 

6152 Z=1B0XINT(CACI+SXNIX(. STRND(B)))X.0@ 
1) 

6169 LPRINT(2,@]l'Budget approx. marketin 
9-pub";3e;'F" 

6179 iPRINTI2,8]J'"Nombre de points de ven 
tes:";ACI+6XN) 

6182 LPRINTI2,@]l'Qualite en Valeur ajout 
ee: ;ACI+?/XN) 

630@ NEXT I 

6422 GOTO 5080 


Explications : 


5010 


5020 
5030 
5050 
5060 
5195 
5200 
5245 
5400 
5440 
5540 
5560 
5580 


On définit 100 mémoires numérotables : A(O), A(1), A(2), 
A(99). 


N: Nombre de sociétés. 

|: Numéro de société. 

A$!{I): Nom de la société numéro lI. 

A ou A[(I+N): Capital ou reste. 

Y ou A(I+8XN): Quantité produite. 

U ou A(I+3XN): Quantité totale. 

Q ou A(I+7xN): Supplément qualité. 

P ou A(I+6XxN): Nombre de points de vente. 
20 % sur l'avoir publicitaire de l'année précédente. 
V ou A(I+4XN): Prix de vente. 

K: coefficient publicité. 

L': coefficient qualité. 


…, A(98), 
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5620 
5650 


5763 


5830 


5940 
5970 
6100 


6110 


6400 
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R: coefficient prix. 


T: coefficient compétitivité (ou A(1+2 xN)) ; ce coefficient correspond 
également à la quantité susceptible d'être acheté sans tenir compte 
de la concurrence. 


Z ou A(I+5xN): Avoir publicitaire. 


Jeu de la concurrence selon la compétitivité où chaque entreprise 
est confrontée aux autres. 


C: quantités vendues. 
D: chiffre d'affaire. 


Si l'imprimante n'est pas sous tension le programme reprend sans 
donner les résultats généraux. 


LPRINT{3,3] signifie : imprimer en taille 3, en rouge (3) ce qui est 
entre guillemets. 


Retour à une nouvelle période ou année. 


5 
Jeux d’adresse 


FIREFOX 


Un jeu de réflexes et d'intuition qui vous passionnera lorsque vous le 
maîtriserez bien. 


Le firefox est un vaisseau spatial. Vous en contrôlez la vitesse. Vous devez 
le faire avancer à l'intérieur d'un tracé de montagnes qui apparaît selon une 
loi aléatoire. 


Vos points sont comptabilisés selon la vitesse de votre vaisseau à chaque 
pulsion du trajet signalée par deux Beep. 


1" vitesse : 1 point 

2° vitesse: 3 points 

3° vitesse: 8 points 

4° vitesse: 40 points (Très rapide) 
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Vous irez: 

— Plus vite en pressant la touche [2]. 
— Mois vite en pressant la touche [1]. 
— À droite en pressant la touche EY 
— À gauche en pressant la touche mp 


Lors d'un resserrement du tracé, pensez à décélérer pour éviter de vous 
écraser sur une montagne. 


Attention, n'appuyez qu'une seule fois à chaque pulsion car le programme 
mémorise les touches pressées les unes à la suite des autres. 


A vous de jouer! 


Pour rejouer, pressez la touche d'espacement; une musique vous donnera 
le départ. 


Programme : 
2088 PRINT" FIREFOX" 
2002 FONT$(225)="136,248,248,112,112;, 352, 
325582" 
2004 FONT$(149)="252,252,4,252,128, 252,4 
> 252" 


2005 GOSUB 35300 

2818 O=7:W=2:E=2:R=]1000:T-0 
2020 IF C$="1" THEN R=R+400 
2038 IF C$="2" THEN R=R-400 
2040 IF R<Q THEN R=0 

2050 T=T+INT(2880/CR+50)) 
2090 BEEP 28,1 

2108 I=0 

211@ IF I>=Q THEN 2200 
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2120 
2140 
2208 
2240 
2250 
2260 
2270 
23508 
2340 
2350 
2360 
2370 
2480 
2580 
2510 
252@ 
2608 
2610 
2628 
2/88 
+1 

2790 
2795 
2820 
2810 
2812 
2815 
2828 
2830 
2840 
2850 
2860 
2988 
3200 
3028 
3240 
3100 
3120 


PRINT" "; 

I=1+1:GOTO 2110 

RNA 
1=0 

IF I>=W THEN 2300 

PRINT" #3 

I=1+1:GOTO 2258 

PRINT ‘## 
1-0 
IF-ID<E THEN 2400 
PRINT" "; 
I=1+1:GOTO 2350 
PRINT" 
A=RND(O) 
IF A>.4 THEN Q=Q+1:u=W-1 

IF A<=.4 THEN G=Q-1 :u=W+1] 

B=RND(1) 

IF B>.4 THEN E=E-1 

IF B<=.4 THEN ErEti 

IF E+u+Q>16 AND Q>11 THEN G=Q-1 :W=U 


IF EtW+Q)>16 THEN E=E-1 

IF Q<2 THEN Q=Q+1 :W=W-1 

IF EtW<2 AND E<I THEN E=E+1 
IF E+W<2 THEN W=W+1:GQ=Q-1 


BEEP 25,1 

FOR I=Q TO R:NEXT I 
C$=INKETS 

IF C$="-" THEN W=W-1:E=E+1 


IF C$="A" THEN W=WN+1:E=E-1 
IF W<Q THEN 3200 

IF E<g THEN 3200 

GOTO 2820 

FOR I=1 TO Q 

PRINT" "3; 

NEXT I 

PRINT'X"; 

FOR I=i TO E 
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3148 PRINT" “; 

3150 NEXT I 

3178 PRINT'"" 

3180 GOTO 3580 

3288 FOR I=1 TO Q 

3228 PRINT" ‘; 

324Q@ NEXT I 

3268 PRINT'""; 

3278 FOR I=1 TO UW 

3280 PRINT" ‘“; 

32398 NEXT I 

3300 PRINT"'X" 

3318 GOTO 3500 

3508 PRINT'CRAACKI Score:";T 
3608 GOSUB 3900 

3650 IF INKEY$=" " THEN 2800 
3708 GOTO 3650 

3900 BEEP 3S0,3:BEEP 28,3:BEEP 27,5 
3310 BEEP S0,3S:BEEP 3SS,S:BEEP SG, 3 :BEEP 
35,9 

332@ RETURN 


Explications : 


2002 On définit un caractère pour le dessin du vaisseau. On choisit le 


caractère 225 qui correspond aux touches |[GRPH| puis . Pour 
cela on utilise le programme GRAPHO: 


136 
248 
248 
112 
112 
32 
32 
32 


ss = - - o 
O0 OO = = © 
O0 0000 — — 
O0 0000000 


OO O0O0OO— — — 
OO OO--- - 0 
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2004 


2005 


2010 


2020 


2050 


2090 
2100 
2200 


2500 
2600 
2780 
2800 


2812 
2850 
2900 
3000 
3200 
3650 
3900 


On définit de la même façon les montagnes au caractère 149 qui 
correspond aux touches GRPH puis V. 


Le sous-programme qui se trouve ligne 3900 donne la musique de 
départ. 


On initialise les variables: 

Q: Distance entre le bord gauche du tableau et la montagne de 
gauche. Au départ il y a sept espaces. 

W: Distance entre la montagne de gauche et le vaisseau. 

E: Distance entre le vaisseau et la montagne de droite. 

R: Temps d'attente. 

T: Score. 


C$: Touche pressée définie en 2820. 
Ici on règle le temps d'attente R. 


Cette fonction permet de donner 1 point pour la 1" vitesse, 3 points 
pour la 28 vitesse, 8 points pour la 3° vitesse et 40 points pour la 4° 
vitesse, qui s'ajoutent au score T. 


Première demi-pulsion (son). 
à 2140 On imprime Q espaces. 


On imprime la première montagne: pressez GRPH puis V pour le 
caractère entre guillemets. 


A: Déplacement au hasard de la montagne de gauche. 
B: Déplacement au hasard de la montagne de droite. 
à 2795 On évite de sortir de l'écran. 


à 2810 On assure deux espaces libres minimum entre les 
montagnes. 


Deuxième demi-pulsion (son). 

à 2860 Test de la collision. 

Retour pour une nouvelle pulsion. 

à 3180 Imprime une collision du côté gauche. 
à 3310 Imprime une collision du côté droit. 
Pour rejouer on presse la touche d'espacement. 
à 3920 Sous-programme musical. 
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PACMAN 


Voici un jeu très divertissant parfaitement adapté au XO7. 


Un petit bonhomme que vous contrôlez dans ses déplacements est pour- 
suivi par un monstre plus rapide que lui. 


Cependant, le bonhomme peut sortir d'un côté de l'écran et réapparaître de 
l'autre côté pour se protéger du monstre. Le monstre lui ne connaît pas 
cette possiblité. A droite s'affiche votre score. 


A chaque battement de cœur du petit bonhomme vous gagnez 10 points. A 
chaque prime que vous attrapez (représentée par $) vous gagnez 
1000 points. 


Le but du jeu est donc d'attraper un maximum de primes sans se faire 
manger. Lorsque vous vous êtes fait manger trois fois, la partie s'arrête. 


Pour aller à droite, pressez la touche [1]. 
Pour aller à gauche, pressez la touche a 
Pour aller vers le haut, pressez la touche [E]. 
Pour aller vers le bas, pressez la touche [7]. 


Il est inutile de presser plusieurs fois une même touche puisque la touche 
donne une direction au petit bonhomme, qui sera suivie tant que vous 
n'aurez pas pressé une autre touche. 


Les primes apparaîtront au hasard sur l'écran mais ne resteront pas long- 
temps à leur place. Vous devez donc vous dépêcher de les saisir. 


Programme : 


5 PRINT" XX PACMAN xx" 

190 FONT$C224)="9,112,216,124,28, 120,240 
@" 

3 

128 FONT$(C225)="0,56,108,248,224,120,60, 
a" 

148 FONT$(231)-"0,160,112,40,52,88,64,0" 
160 FONT$(C233)=-"0,20,56,80,16,124,8,0" 
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182 FONT$(229)=-"248,248,248,248,248,248, 
248,248" 

BEEP 20,4:BEEP 18, 4:BEEP 17,7 

BEEP 2S,6:BEEP 2S,6:BEEP 20,5 

BEEP 27,8:BEEP 24,5S:BEEP 25,15 


s20 
310 
S20 
500 
230 
540 
628 
610 
620 
650 


J 


Dep lacement curseur. 


C=30 


CLS 
z$= 


INKETS$ 


BEEP 27,1 
T=T+10 


IF 


32x71) 


650 
660 
670 
680 
698 
780 
2718 
728 
238 
748 
258 
268 
7228 
788 
820 
328 
328 
325 
330 
335 
348 
345 
358 
360 


IF 
IF 
1F 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
3 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


INTCT/200)=T/200@ THEN H=INTCRND(1 


2$="]" THEN D=1 
2$=":" THEN D=2 
2$="[" THEN D=S 
2$="?" THEN D=4 
2$="2" THEN D=S 
D=1 THEN C=C+] 
D=2 THEN C=C-1 

D=4 THEN C=C+28 

D=S THEN C=Cc-282 

C=6S AND D=1 THEN C=2 

C<-S3 THEN C=C+88 

C<-1 AND C>-1Q THEN C=C+6@ 
C>?S3 THEN C=C-88 

C>68 AND C<8B THEN C=C-68 
C=-1 AND D=2 THEN C=78 


Monstres 


Al-CWU<B THEN A=A+I] 
AU-CW»>2 THEN A=<A-1 

AQCCQ THEN A=A+20 
RND(@)<.1 THEN A=A+1 
RNDC1)<.1 THEN A=A+28 
A>73 THEN A=A-80 

A>68 AND A<82 THEN A=A-60 
A=-] THEN A=78 
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10008 IF FW-CN>@ THEN F=F-1 
1919 IF FQGGCQ THEN F=F+28 
1028 IF FW-CN<Q THEN F=F+1 
1190 BEEP 20,1 


2008 ? IMPRIME 

2020 LOCATE CU,CQ 

2248 PRINT" "; 

218@ CQ=INT(C/20) 

2128 CW-C-Cax20 

2130 IF CQ<@ THEN CQ=0 

2148 LOCATE CW,CQ | 
Pour obtenir les caractères 

2145 IF D=2 THEN PRINT'"#" graphiques reportez-vous à 

2150 IF D-2 THEN 2200 ads les ORNE 

2168 PRINT'# ; 

2208 LOCATE HW,HQ 

2218 PRINT" ‘; 

2228 HQ=INTCH/28) 

2238 HW=H-HQx28 

2248 LOCATE HW, HQ 

225@ PRINT'"$"; 

2308 LOCATE 18,3 

2318 PRINT'EST; 

2408 LOCATE AU, AQ 

2418 PRINT‘ ‘; 

2428 AG=INTCA/20) 

2430 AW=A-AQX28 

2448 LOCATE AW, AQ 

2458 IF AW-CW>Q THEN PRINT'€S” 

2468 IF AW-CW>2 THEN 2508 

2478 PRINT"; 

2500 IF A=C THEN 4080 

2600 IF HOC THEN 608 

2612 T-T+1200 

2620 BEEP 30,5:BEEP 23,3:BEEP 21,2:BEEP 

30,8 

2908 GOTO 688 

4800 iLOCATE 5,1 


4188 PRINT'SLURP 2°; 
4150 BEEP 26,8:BEEP 21,S:BEEP 20,8 


4280 i=U+1 

4210 IF U<>3 THEN 508 

4228 PRINT 

4230 PRINT" XX GAME OUER XX"; 
4240 IF INKEY$=" " THEN RUN 


4258 GOTO 4248 


Explications : 


100 


120 


140 


160 


180 


300 
530 
630 
650 
740 
920 
935 
2020 
2100 
2200 
2220 
2300 


Création du caractère ‘’ monstre gauche” accessible avec | GRPH 
C7]. 


Création du caractère ‘monstre droite” accessible avec | GRPH 
[Z] 


Création du caractère ‘’bonhomme gauche” accessible avec 

Le]. 

Création du caractère ‘’’bonhomme droite” accessible avec 

[1] 

Fr du caractère ‘Trait séparation” accessible avec 
J 

à 320 Musique de départ. 

Curseur du bonhomme placé initialement à la case 30. 

Toutes les 20 pulsions, la prime change de place. 

à 730 Mouvement du curseur bonhomme. 

à 820 Gestion du curseur bonhomme aux limites de l'écran. 

à 930 Poursuite du bonhomme par le monstre. 

à 1020 Gestion des sauts et mouvements du monstre. 

à 2040 On efface la case où se trouvait auparavant le coureur. 

à 2160 On imprime le coureur. 

à 2210 On efface la case où se trouvait avant la prime. 

à 2250 Et on imprime la nouvelle prime. 

à 2310 On imprime le score. 
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2400 à 2410 On efface la case où se trouvait avant le monstre. 
2420 à 2470 Et on imprime le monstre. 

2500 Testons si le monstre se trouve sur la case du bonhomme. 
2600 Testons si le bonhomme se trouve sur la prime. 

4200 U nombre de bonhommes mangés. 

4210 Au bout de trois bonhommes mangés: fin du jeu. 

4240 Presser la touche d'espacement pour recommencer. 


Caractères graphiques: 


56 


Exemple : 


RUN 

(musique de départ) 

Pressez la touche EI vous allez à droite. 

Attendez la sortie de l'écran. Vous apparaissez au côté gauche de l'écran. 


Pour aller à gauche pressez Ha! 

Pour aller en haut pressez 

Pour aller en bas pressez [7]. 

Le jeu s'achève quand vous vous êtes fait manger trois fois. 


#** GAME OVER ## 


Pour rejouer pressez la touche d'espacement. 
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6 
Jeux de réflexion 


Le pendu 


D'une conception très sympathique, ce programme vous fera passer de 
bons moments. 


Une musique annonce le départ. 


Apparaissent sur l'écran des traits qui représentent les chiffres que vous 
aurez à trouver pour reconstituer le nombre cherché. Ce nombre sera obli- 
gatoirement le carré d'un nombre entier (ce qui vous orientera dans vos 
recherches). 


Chaque fois que vous trouverez un chiffre composant le nombre en ques- 
tion, ce chiffre remplacera le trait à son emplacement. 


Lorsque vous faites des erreurs, le pendu se dessine trait par trait; au bout 
de huit erreurs, vous êtes pendu et le nombre cherché s'affiche. 


Attention ! Un chiffre contenu plusieurs fois dans le nombre cherché sera à 
trouver autant de fois. 
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Programme : 


108 PRINT" xx LE PENDU xx" 
150 GOSUB6000 

208 DIM AC18):DIN BC182) 

SR A=INT(RND(B)X683)+317 
400 B=A°2 

508 FOR I=1 TO 6 

608 ACI)J=INT(B/12"C6-I)) 

788 B=B-A(I)Xx12"(6-1) 

828 NEXTI 

300 PRINT'Trouvez le carre :" 
958 PRINT 

1208 PRINT" - - - - - - "5 
1190 D$=INKEYS 

1200 IF D$="" THEN 1100 

1300 E=UAL(D$) 

14880 FOR I1=1 TO 6 

1500 IF ACIDE OR BCI)=1 THEN 2000 
1688 LOCATE2XI-2,3 

1788 PRINTE; 

1820 BCI)=1 

1308 GOTO 1108 

2808 NEXTI 

2108 J=J+1 

2280 ON J GOTO 4000, 3800, 3600, 5400, 5208, 
3200,2800,2600 

2600 LOCATEO,1 

265@ PRINT" %x%x PENDU 00 xx" 
2708 PRINT'C'etait:";A"2; 
2730 GOSUB 6000 

275@ END 

2888 LINEC1R2,S1)-C119,31) 
30@8@ LINEC118,12)-C112,31) 
32008 iINE(122,12)-C112,10) 
3400 LINEC102,22)-(102,18) 
3608 LINEC9?,25)-(C105,25) 


3808 LINEC128,22)-(100,50) 

4808 CIRCLE(108,20),2 

S280 GOTO 1100 

6000 BEEP 13,2:BEEP 16,S:BEEP 17,6 
6100 BEEP 20,5:BEEP 18,5S:BEEP 15,9 
2888 RETURN 


Explications : 


200 
300 


600 
1300 
1500 


1600 
1800 


2200 


On crée des mémoires numérotables. 


On prend un nombre au hasard, mais en sorte que son carré soit 
composé de six chiffres. 


On décompose dans les mémoires A(1), A(2), …, A(6) les chiffres. 
E prend la valeur de la touche pressée. 


On vérifie si cette touche coïncide avec l'un des chiffres du nombre 
cherché. 


On positionne le curseur à l'emplacement du chiffre trouvé. 
Lorsque ce chiffre est imprimé, la mémoire B(l) correspondant à 
l'emplacement prend la valeur 1 et permet de ne plus considérer cet 
emplacement. 

Le pendu se dessine dans l'ordre. Il est possible d'augmenter la diffi- 
culté en réduisant le nombre d'erreurs possibles. Pour cela il suffit 
d'omettre ici certains numéros de ligne comme 3600 ou 3200... 


Exemple : 


RUN 


Pressez les chiffres les uns à la suite des autres. 
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Méli-mélo 


Présentation : 


Vous avez aimé le ‘’Rubick's Cube”, vous aimerez ce jeu de logique. 
Ce programme contient sept types de casses-têtes différents. 


Une série de chiffres ordonnée: "123456789" sera mélangée Z fois; Z 
sera défini par le joueur selon la difficulté désirée. 


Ces mélanges suivront une règle (Choisie par le joueur), mais à chaque 
mélange de l'ordinateur, l'endroit où cette règle s'appliquera, sera déter- 
miné par le hasard. 


Le but du jeu, sera de démêler, de remettre en ordre la série 
“123456789" en un minimum de coups, à l'aide des mêmes règles. Il 
appartient au joueur, de chercher par la logique l'endroit où cette règle 
s'appliquera, pour remettre en ordre la série. 


7 casses têtes différents, sept jeux en 1: 


A) Mélanges en rotation 


Dans ce type de mélange une rotation à l'intérieur d'une partie de la série 
s'effectue. Le premier chiffre de cette partie remplace le dernier, et tous les 
autres chiffres de cette partie se déplacent d'un cran vers la qauche. 


1) Rotation à trois chiffres: 


Voici le schéma des quatre opérations possibles pour cette rotation: 


opération 1 opération 3 
1 2 3 4 5 6 7 8 9 
opération 2 opération 4 
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Ainsi, lorsque l'on mélange la série "1123456789" avec l'opération 1, elle 
devient: "231456789". 

En appliquant l'opération 2 sur la série obtenue, on obtient: 
"234516789". 


Et ainsi de suite. 


2) Rotation à quatre chiffres: 


Voici le schéma des opérations possibles : 


opération 1 opération 3 


opération 2 opération 4 


Exemple : 


"6539681472" devient par l'opération 3: "539614782". 


3) Rotation à cinq chiffres: 
Exemple : 


"539681472" devient par l'opération 3: 
"539814762" puis par l'opération 2: 
"598143762" par l'opération 4: 
"598124376" par l'opération 1: 
"981254376". 


4) Rotation à six chiffres: 
Exemple : 


"736829154" devient par l'opération 2: 
“768291354" ensuite par l'opération 4: 
"“768913542" par l'opération 1: 
"689137542" par l'opération 3: 
"681375492". 


On constate que la difficulté augmente avec le nombre de chiffres choisi. 
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B) Mélanges en permutation 


Dans ce type de mélange, on imaginera la partie de la série permutée 
comme dans un miroir. Ainsi le premier chiffre de la partie et le dernier 
s'interchangent, le deuxième et l'avant dernier, et ainsi de suite. 


1) La permutation à trois chiffres n'existe pas: elle ne permettrait pas de 
mélanger tous les éléments de la série. 


2) La permutation à quatre chiffres: 


opération 1 opération 3 
[ll | 
2 3 4 5 6 7 8 9 
Pr UE 


opération 2 opération 4 


Exemple : 


"197538264" devient par l'opération 1: 
"579138264" puis par l'opération 3: 
"579162834". 


3) La permutation à cinq chiffres: 


Exemple : 


"167832495" devient par l'opération 3: 
“167942385" puis par l'opération 4: 
"167958324" par l'opération 2: 
"185976324" par l'opération 1: 
"7795816324". 


4) La permutation à six chiffres: 
Exemple : 


"5791162834" devient par l'opération 1: 
"261975834" puis par l'opération 2: 
“285791634" puis par l'opération 3: 
“283619754" enfin par l'opération 4: 
"2834577916". 
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Programme : 
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788 DIM ACSA) 

820 PRINT" x%X MELI-MELO xxx" 

9280 INPUT'Nombre de chiffres qui s’inter 
changent (3,4,5 ou 6)'";C 

910 IF C-0Q THEN 10800 

92Q IF C<2 OR C>6 THEN 908 

940 INPUT'"Melange en rotation (CR) ou en 
permutation (P)";P$ 

9SQ IF C=3 THEN 980 

960 IF P$="R" THEN C=C+4 

988 IF P$C'"'P" AND P$O'"'R" THEN 940 
1208 INPUT “Nombre de melanges au hasard 
Nr 

1210 IF 2-0 THEN 10800 

1920 IF 2<1 THEN 1200 

1030 IF 22350 THEN 2-50 

1858 Mm=0 

1120 FOR I=1 TO 3 

1208 ACI)D=I 

1328 NEXT I 

1408 FOR I=1 TO à 

1508 N=INTCRND(1)*X4)+1 

1600 ON C GOSUB 308,900, 3200, 4000,5020,6 
000,300, 8000,3020,12200 

1780 NEXT I 

1719 S=Q 

1728 FOR I=1 TO 3 

173@ S=(S+A(I)D)x1@ 

174Q NEXT I 

1750 S=S/10 

1760 IF S=123456789 THEN 1900 

1778 M=M+] 

1780 PRINTS;":coup";M 

1850 INPUT N 

1855 IF N=0 THEN 10800 

1860 IF N>4 OR N<1 THEN 1850 


1880 ON C GOSUB 300,300, S028,4000,5000,6 
e80,S300,S8000,S000,100828 
1890 GOTO 1710 

1300 IF M=@Q THEN 1400 
191@ IF C=3 THEN 2z=2x2 
192Q IF M>x THEN 19360 
1930 PRINT" BRAUO © Trouve en";M;'"coups, 
1934Q@ GOTO 380 

196@ PRINT'PAS MAL 2";M;"coups" 
1970 GOTO 9388 

3208 N=NX2-] 

3100 T=ACN) 

3208 ACNJ=ACN+1) 

3308 ACN+1)=ACN+2) 

3400 ACN+2)=T 

35800 RETURN 

48000 IF N>2 THEN N=N+2 
4128 T=ACN) 

4288 ACNJ=ACN+S) 

43588 ACN+SJ)=T 

4400 T-ACN+1) 

4508 ACN+1)=ACN+2) 

4688 ACN+2)=T 

4708 RETURN 

5000 IF N>2 THEN N=N+1 
5100 T=ACN) 

5288 ACNJ=ACN+A) 

5308 ACN+4)=T 

5400 T=ACN+1) 

3508 ACN+IJ=ACN+S) 

2608 ACN+S)=T 

5708 RETURN 

6888 T=ACN) 

6120 ACNJ=ACN+S) 

6288 ACN+S)=T 

6320 T=ACN+4) 
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6408 ACN+4)=ACN+1) 
6508 ACN+I1J=T 

6608 T=ACN+2) 

6708 ACN+2)=ACN+3) 
6828 ACN+3S)=T 

69300 RETURN 

8000 IF N>2 THEN N=N+2 
8100 T=ACN) 

8200 ACNJI=ACN+1) 
8300 ACN+1)=ACN+2) 
8400 ACN+2)=ACN+3) 
8508 ACN+3S)=T 

8600 RETURN 

3000 IF N>2 THEN N=N+! 
3100 T=ACN) 

3208 ACNJ=ACN+1) 
33500 ACN+I1)=ACN+2) 
93400 ACN+2)=ACN+3) 
3508 ACN+S)J=ACN+4) 
3608 ACN+4)J=T 

3708 RETURN 

18008 T=ACN) 

18188 ACNJI=ACN+1) 
10208 ACN+1)=ACN+2) 
10308 ACN+2)=ACN+3S) 
10408 ACN+S)=ACN+4) 
182508 ACN+4)=ACN+S) 
12608 ACN+S)=T 
12/88 RETURN 

11208 END 


Explications : 


700 On définit 50 mémoires numérotables. 


960 Lorsque l'on veut faire une rotation l'indicateur C du jeu désiré est 
incrémenté de quatre unités. 
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1600 On se dirige vers le sous-programme du jeu désiré. 

1760 On vérifie si la série est obtenue par le joueur. 

1910 à 1960 Notation selon la vitesse à laquelle a été trouvée la solution. 
3000 à 10000 Sous-programmes pour les différents jeux. 


Exemple : 


Rotation ou permutation? R 
Nombre de mélanges ? 2 


312456978 ? 1 
2314569787? 1 
123456978 ? 4 
123456897 ? 4 


BRAVO |! 4 coups 


Celui-ci, bien sûr est un exemple simple. 


L’ignoble SCHNOEKLE 


L'ignoble, le terrible, l'immonde SCHNOEKLE se cache dans une grille de 
10 x 10 cases. 


En suivant les indications données par l'ordinateur (Glacial, tiède, …) vous 
devez trouver l'endroit exact où se trouve le Schnoekle, mais gare à vous si 
vous vous trompez; car le Schnoekle ne fera de vous qu'une bouchée. Puis 
ne mettez pas trop de temps à le chercher car au bout d'un certain nombre 
de coups, le Schnoekle se réveille et saute! 
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sv se it 
SUR 


Programme : 


18 PRINT'L?IGNOBLE SCHNOEKLE" 

2Q@ INPUT'“Ignominie du Schnoekle comprise 
entre @ et {S'";T 

3Q INPUT'Profondeur du sommeil du Schnoe 
kle";s 

49 PRINT'LE SCHNOEKLE SAUTE" 

52 I-0 

68 A=INTCRNDCB)%10) 
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78 B=INTCRND(1)%10) 
88 E=ABS(A-C) 
32 F=ABS(B-D) 


120 
110 
120 
138 
158 
168 
170 
188 
190 
200 
2198 
220 
230 
248 
258 
26@ 
270 
280 
298 
300 
310 
320 
330 
340 
350 
360 
370 
38@ 
390 
4ee 
418 
420 
430 
448 
450 


I=I+1 

IF I2=S THEN 408 
PRINTC;D 

INPUT '"Hor izontal";H 
PRINTC+H;D 
INPUT'"Uertical";u 
C=C+H 

IF C>=Q THEN 228 
PRINT'Hors tableau" 
C=C-H 

GOTO12@ 

IF C>9 THEN198 

D=D+U 

IF D>=Q THEN 278 

D=D-U 

GOTO 1938 

IF D>9 THEN 258 

GOTO 408 
2=INTCCCE-1-ABSCA-C))/12+1)) 
&=2+INTCCCF-1-ABSCB-D))/12+1)) 
IF 20 THEN 348 
PRINT'GLACIAL" 

GOTO 80 

IF 21 THEN 378 
PRINT'TIEDE" 

GOTO 80 

IF 222 THEN 228 
PRINT'"BRULANT" 

GOTO 80 

IF A=C THEN 498 

IF ABSCA-CJDT THEN 438 
IF B-D=0 THEN 460 

IF ABSCB-DJ>3T THEN 458 
IF À-C-0 THEN 468 

GOTO 298 
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460 PRINT'GLOUP99 slurp99 MALHEUREUX, L? i 
gnoble Schnoekle n’a fait de toi"; 

478 PRINT" qu’une bouchee ©"; 

480 GOTO 552 

490 IF B<>D THEN 410 

508 PRINT'BRAUO 22 CHAMPION 2"; 

512 PRINT"'TU AS TUE L’AFFREUX,L?IGNOBLE 
SCHNOEKLE” ; 

550 IF INKEY$="" THEN 550 

568 RUN 


Explications : 


60 A est la coordonnée horizontale ou abscisse de l'emplacement du 
Schnoekle. 


70 B est la coordonnée verticale. 


80 C: coordonnée horizontale du joueur. 
E: distance horizontale entre le Schnoekle et le joueur. 


90 D: coordonnée verticale du joueur. 
F: distance verticale entre le Schnoekle et le joueur. 


100 |: nombre de coups. 


290 et 300: fonction permettant de trouver Z en sorte que Z soit un indice 
pour le joueur. 


400 à 450: Différents tests permettant de déceler si le Schnoekle mange 
le joueur ou si le joueur tue le Schnoekle. 


Exemple : 


En début de jeu, vous vous trouvez toujours dans la case de départ (0, O). 


Vous pouvez définir d'ignominie du Schnoekle, c'est-à-dire le nombre de 
cases en vertical ou en horizontal autour du Schnoekle sur lesquelles il 
pourra sévir. Prenons l'exemple du dessin: 


Supposons que le Schnoekle se trouve dans la case (2, 8) et que vous ayez 
choisi une ignominie égale à 3. Ainsi, si vous vous trouvez dans l'une des 
cases suivantes vous serez dévoré |! 
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(2, 7) (2, 6) (2, 5) 
(3, 8) (4, 8) (5, 8) 
(2, 9) 

(1, 8) (O, 8) 


Mais si vous parvenez à découvrir que le Schnoekle se trouve dans la case 
(2, 8), alors vous lui sauterez dessus et le tuerez. 


L'ignominie conseillée du Schnoekle est de 2. La profondeur du sommeil 
du Schnoekle (soit le nombre de coups au bout desquels le Schnoekle 
sautera) est conseillée à 9. 


A chaque mouvement votre position est indiquée. Au départ votre position 
est indiquée (0, O). 


Si vous voulez avancer à la case (6, 7) (cf. figure), vous ferez: 


Horizontal? 6 
Vertical ? 7 


L'ordinateur vous donnera une indication (exemple TIEDE) puis votre 
nouvelle position. 


Si vous voulez maintenant avancer à la case (8, 3) vous devez faire un 
mouvement en horizontal de deux cases puis reculer en vertical de 3 cases. 
Vous répondrez donc: 


Horizontal ? 2 
Vertical ? —3 


Une nouvelle indication vous sera donnée. (exemple: glacial). 


Et ainsi de suite... 


Quel est le sens des indications? 


BRULANT: Signifie que vous vous approchez du Schnoekle en horizontal 
ET en vertical. 


TIEDE : Signifie que vous vous approchez SOIT en horizontal SOIT en 
vertical. 


GLACIAL: Signifie que vous ne vous approchez NI en horizontal Nl en 
vertical. 
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Donc, faites preuve de logique et vous trouverez le Schnoekle sans vous 
faire dévorer! 
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7 


Jeux de société 


Jeu de dames 


Jeu de réflexion pure, votre adversaire aux dames est l'ordinateur. Vous 
serez surpris de ‘l'intelligence’ de ses réactions. 


Vous disposerez d'un jeu de dames sur lequel vous aurez numéroté toutes 
les cases blanches comme l'indique la figure. (Prenez bien soin à ce que les 
numéros de votre tableau correspondent à ceux de la figure). Faites atten- 
tion, il n'y a pas de case n° 11. 
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Malheureusement le programme ne fait pas la DAME: le vainqueur sera le 
premier à mettre un pion au bout du tableau. En effet, un programme de 
dames complet prendrait trop de place et serait trop long à retaper. Toute- 
fois à partir des explications du programme, il vous sera possible de le 
compléter en faisant la DAME et même en ajoutant des degrés de réflexion 
(ces possibilités ont été prévues). 


Pour jouer: 


— Choisissez le niveau de difficulté (1 à 3) en sachant qu'au niveau 3 le 
temps moyen de réflexion est de 15 secondes pour obtenir une 
réponse de l'ordinateur. Au niveau 1 ce temps est de 10 secondes. 
Bien entendu, au niveau 3 il est bien plus difficile de battre l'ordinateur. 


—  Disposez vos pions de la case 34 à 54 et ceux de l'ordinateur de la case 
1 à 21. 


— Vous avez la possibilité de commencer mais également de permettre à 
l'ordinateur de démarrer en faisant: 
Réponse à: ‘’de la case?” Taper: 36” 
Réponse à: à la case?" Taper: 36. 
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— Vous pouvez “manger” en arrière et au cas où il y aurait plusieurs 
pions à manger, veuillez décomposer votre mouvement. L'ordinateur, 
lui, ne décomposera pas son mouvement, il indiquera uniquement la 
case de départ et celle d'arrivée. Il vous sera facile de voir les pions qui 
ont été mangés. Vous êtes obligé de manger quand vous en avez la 
possibilité. 


Vous aurez toujours la possibilité de tricher en cas de coup dur, l'ordinateur 
ne vérifie pas. 


Amusez-vous bien! 


Programme : 


120 PRINT" %xx% JEU DE DAMES xx" 
28@@ DIM AC88) 

4@@ INPUT'Niveau (1 a 3)";P 

SA IF P>3 THEN 400 

680 P=(C-1)X(P-4) 

1180 FOR I=1 TO 21 

1288 ACI)=I1 

1308 NEXT I 

1400 FOR I=23 TO 32 

1500 ACI)=3 

1600 NEXT I 

1700 FOR I=34 TO 54 

1800 ACI)-8 

1308 NEXT I 

2888 AC11)-8:A(44)=0:A(61)--6:A(62)--5:A 
(63)=5 :A(64)-6 

2108 INPUT'De la case";x 

2280 INPUT"'A la case";Y 

225@ IF Y-Q THEN STOP :GOTO 2180 
2300 IF INTCX+Y)J<>X+Y THEN 2120 
2580 ACX)=S:ACT)=8 

2600 IF ABS(X-Y)<8 THEN S128 
2788 ACCX+Y)/2)=3 

2820 INPUT"'Remangez-vous (O/N)"';RS$ 
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2900 IF R$="0" THEN 2100 

3200 IF R$O'"N" THEN 2800 

3100 I=1 

5288 IF ACIDO1 AND ACID AND 
0-1-6:GOT0 3500 

3300 I=I+1 

3400 GOTO 3200 

3500 B-0 

3602 1-54 

5708 IF ACI)=1 THEN GOSUB 5200 
3800 IF B-7 THEN 28000 

3850 I=I-1 

3900 IF IO@B THEN 3700 

3950 B=@ 

4800 FOR L=P TO 3 

4108 FOR W=49 TO Q STEP -1 

4120 I=u 

4140 IF INTCCH-5)/11)=CW-5)/11 
5 

4160 IF INTCCu-18)/11)=CW-10)/1 

+6 

4208 FOR J=63 TO 64 

4308 IF ACIDO1 OR ACI+ACJD)03 
a 

4318 ON L GOSUB 8000,9000, 10000 
4320 IF B=7 THEN GOSUB 15000 
4350 IF B-7 THEN 20000 

4408 NEXT J 

4500 NEXT 

4608 NEXT L 

4708 GOTO 2100 

5208 K=I 

5100 FOR J=61 TO 64 

5158 M=ABSCK+ACJ)) :N=ABSCK+2XAC 


126 THEN 


THEN I=W+ 


1 THEN I= 


THEN 432 


J)) 


5200 IF ACM)I=8 AND ACNJ=S THEN B=7:Y=N:X%x 


= -ACM)=3 :K=Y:J-=60 
3300 NEXT J 


2408 RETURN 

88800 IF I<13 THEN W=1:RETURN 

8050 IF ACI+I1)C8 THEN RETURN 

8100 IF ACI+2XACJ)-11)<>3 AND ACI-ACJ)+2 
2)08 THEN 8300 

8200 GOTO 8500 

8300 IF ACI+2XA(J))<>28 THEN 8400 

8320 IF CACI-S)+ACI-6))72X(ACI-1B)+ACI-I] 
2))>16 THEN 8508 

84080 B=7:T=I+AC(J):Xx=I 

8500 RETURN 

93008 FOR K=61 TO 64 

3100 IF ACI+TACJI)J+ACK))<>28 THEN NEXT K:Xx= 
I:Y=I+ACJ):B=7 

39208 RETURN 

18000 IF RNDC1)>.7 THEN X=I-B=7:Y=I+ACJ) 
18108 IF I-Q THEN W=54 

19208 RETURN 

15088 IF ACI-ACJ)+11)=1 AND ACI-2XA(J)+2 
2)1=8 THEN B=8 

15180 RETURN 

2000@ PRINT'De la case';X;'a la case";ŸY 

28188 ACX)=3:ACY)=1 

28208 GOTO 2100 


Explications : 


100 à 2000 emplacements des pions. 
2100 à 3950 mouvements des pions. 
4000 à 15100 stratégie (trois niveaux). 

20000 à 20200 affichage. 


200 On définit 80 mémoires numérotables : 
A(1), A(2), A(3), …, A(80). 


1100 Les mémoires A(1) jusqu'à A(54) correspondent aux cases du 
tableau. 
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1200 


1500 
1800 
2000 


2300 


2500 


2600 


2700 


3100 


3600 
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Lorsque la mémoire A(l) = 1 cela signifie que dans la case numé- 
ro l il y a un pion appartenant à l'ordinateur. 


A(1) = 3: La case n° | est vide. 

A(1) = 8: La case n°1 contient un pion du joueur. 

Les cases qui ne font pas partie du jeu sont égales à O0. Les 
mémoires A(61), A(62), A(63), A(64) correspondent aux diffé- 
rences qu'il y a entre une case quelconque du tableau et les quatre 
cases qui l'entourent. 

On vérifie qu'il n'y a pas d'erreur lorsque le joueur fait un 
mouvement. 

On vide la case X de départ du joueur et on met un pion à la case Y 
d'arrivée. 

Si l'on n'a pas mangé de pion il appartient maintenant à l'ordina- 
teur de jouer. 

Mais si on a mangé, la case qui se trouve entre les deux cases du 
mouvement est vidée. 

Pour accélérer les réponses, on considérera que les pions suscep- 
tibles de bouger, sont les pions qui n'ont pas un pion de même 
couleur devant eux. 

à 3950 Sera considérée la plus grande case où il y aura un pion 
de l'ordinateur. 

Voir lignes 5000 à 5400. 

On utilise les sous-programmes de stratégie dans l'ordre. 

à 5400 S'il y a possibilité de manger, on mange d'abord. 

à 8500 S'il y a possibilité de se placer sans danger afin de 
manger au prochain coup, l'ordinateur le fait. 

à 9200 Si l'ordinateur ne risque pas de se faire manger il avance 
en privilégiant les premières cases. 

à 10200 L'ordinateur bouge un pion quelconque. 


Présentation du damier : 


Exemple : 


** Jeu de dames #*+* 


Niveau (1 à 3)? 3 
De la case ? 36 
A la case? 30 


De la case 19 à la case 24 


De la case ? 37 
A la case? 32 


De la case 24 à la case 36 (ici votre pion qui se trouvait en case 30 a été 
mangé !) 


De la case? 42 

A la case? 30 (vous mangez) 
Remangez-vous (O/N)? N 

De la case 21 à la case 27 


Et ainsi de suite... 
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BACKGAMMON 


Vous jouez contre l'ordinateur. 


Vous serez étonné des performances de ce programme. En effet, des 
grands joueurs de Backgammon ont parfois été battus. 


L'ordinateur ici réagit comme un véritable adversaire et dénonce les 
erreurs. 


Cependant il serait bon de rappeler les règles du jeu pour ceux qui ne les 
connaissent pas, afin qu'ils puissent en profiter également. 


Pour jouer vous vous munirez ou vous vous fabriquerez un tableau de 
Backgammon numéroté comme l'indique la figure. 


Règles du jeu: 


Dans un tableau (cf. figure) sont disposés vos pions ‘’e”’ et ceux de l'ordi- 


nateur “o”. 


Le mouvement de vos pions s'effectue dans le sens décroissant des numé- 
ros des cases. Le mouvement de l'ordinateur s'effectue dans le sens 
croissant. 


Le but du jeu 


Le but de ce jeu est de placer tous vos pions dans les cases numérotées de 
1 à 6 et au jet du dé retirer vos pions. Si vous avez fini de retirer tous vos 
pions avant l'ordinateur, vous avez gagné. 


Déplacements 


Les déplacements se font au jet du dé. Exemple : vous avez cinq pions dans 
la case 13 et vos dés affichent 4 et 3. Vous faites sauter un pion de la 
case 13 à la case 10. Lorsque vous faites un double (exemple 5 et 5) vous 
déplacez quatre fois vos pions de cinq cases. 


80 


+ om [N 
NN N NN 
— [\| m 
© (e] [e] 


— © o 
$ LO (de) FR = 
Ô OÔ © © s 3 © …. 


om 
_ 


81 


82 


Pour manger 


Vous ne pouvez manger un pion de l'ordinateur que si vous tombez dessus 
et que s’il est seul dans sa case. Vous ne pouvez pas aller sur les cases qui 
contiennent deux pions ou plus de l'ordinateur. 


Lorsqu'un pion est mangé il se place dans une case hypothétique (25 pour 
vous, O pour l'ordinateur), et vous ne pouvez jouer tant que votre pion n'est 
pas ressorti. 


Programme : 


120 PRINT" *%x*% BACKGAMMON xx‘ 

208 DIM AC4@8) 

388 AC1)=-2:A(6)=-S:AC(8)=-3:AC(12)=5:A(13) 
=-S:A(17)=-3:A(19)=5:A(24)--2 

330 GOSUB 32000 

35@ GOSUB 20808 

398 PRINT “Des :";AS;".";AD 

408 INPUT "JOUER" ;D 

45@ IF D=@ THEN 1908 

46@ IF D=-1 THEN GOSUB 3200G:GOTO Zz9@ 
588 E=INT(D) 

680 F-=1280x(D-E) 

658 IF F-@ AND ACE)J<Q THEN ACEJ=ACE)+]:G 
OTO 1328 

680 IF AC25)<8 AND E<>235 THEN 800 

?7@@ IF E>25 OR F>24 THEN 800 

250 IF ACE)<8 AND ACFI<2 THEN 1000 
800 PRINT"'ERREUR 2; 

S@0 GOTO 400 

1808 ACED=ACE)+1 

1100 IF ACF)=1 THEN ACF)=8:A(G)=ACB)+] 
1288 ACF)J=ACF)-1 

1300 I=1 

1400 IF ACI)<@ THEN 408 

1458 I=I+] 

1500 IF I<25 THEN 14008 
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1600 PRINT:PRINT" X%XxX  BRAUD 2 xxx UOL 
S AUEZ GAGNE 2" 

1788 END 

1308 GOSUB 28800 

F950-.PREINTAS:"2 "AD 

2008 INPUT'Mes des'";l 

2828 IF L=-1 THEN GOSUB 32880 :GOTO0 19358 
2858 R=3:Q=5:UE=0 

2188 G=INTCL) 

2150 GA=G 

2208 H=18@Xx(L-G) 

2308 IF G<7 AND H<7 AND H>Q THEN 2758 
24@8 PRINT"'ERREUR, "; 

2458 GOTO 2080 

2750 IF A(G)>0 THEN 13008 

2300 IF G>H THEN 0=G:G=H:H=0 

3008 FOR M=1 TO 2 

3108 IF M=1 THEN P=G 

S150 IF Q=2 THEN M=2 

3200 IF M=2 THEN P=H 

3210 IF Q=1 THEN M=2:P=G 

3228 J=26 

3248 FOR I=1 TO 24 

3260 IF ACI)>Q THEN ACJ)=I:J=J+1 

3280 NEXT I 

3298 IF AC26)>18 THEN 21088 

3308 FOR N=1 TO 7 

3408 FOR K=26 TO J-1 

3500 ON N GOTO 3600,4600, 5600, 6600,/7600, 
8600, 3600 

3600 IF ACACK)I+PIC1 THEN 39938 

3650 IF ACK)+P>24 THEN S992 

3700 PRINTACKJ;","3ACKI+P;":"; 

S800 ACACKIJ=ACACKJI)-1 :ACACKI+PI=ACACKI+ 
P)+1:GA=GA+I 

3308 GOTO 18208 

4600 IF ACACK)J+PJ=-1 AND ACK)J+P<235 THEN 
AC25)=AC25)-1 :ACACK)+P)=B:GOTO 3/08 


4700 


5600 IF M=1 AND ABSCACACKI+H))<2 AND H-G 


=ACK+ 
5650 
57008 
5888 
1ACK+ 
5380 
H)+2: 
5950 
6888 
6608 
3650 
6780 
2688 
3650 
7650 
2788 
8608 
3608 
9398 
18100 
18280 
18320 
250 
18400 
13208 


19408 
19458 
19508 
19608 
-1 


GOTO 3380 


1)-ACK) THEN 5708 

GOTO 393988 

IF ACK)+H>24 THEN SSS@ 

PRINTACK) 35", "3;ACKI+H;":";ACK+1);"," 
1)+G; 

ACACKJJ=ACACKII-1 :ACACKI+H)=ACACK)I+ 
GA=GA+1 

ACACK+1J)3=ACACK+1))-1 

M=2:GO0T0 18200 

IF ACACK)JJ=1 AND ACACKJ+PI2-1 THEN 


GOTO 39388 
IF ACACKJI+PJ>-1 AND ACACKJJI<>22 THEN 


IF ACACK)J+PJ>-1 AND G=H THEN 3652 
GOTO 3388 
IF ACACK)J+P)3-1 THEN 3658 
IF ACACK)+PJ>-1 THEN 3658 
NEXT K 
NEXT N 
NEXT M 
IF G=H AND R=3S THEN Q=3:R=S5:GOTO 2 


GOTO 350 

IF ACG)J<-1 AND ACHJ<-1 THEN 13828 
IF ACG)J<-1 THEN 1935088 

PRINT"B,";G; 

IF ACG)J=-1 THEN ACG)=8:AC25)=AC25) 


ACBI=ACG)-1:ACGI=ACG)+1 

IF AC@)=Q THEN Q=2:GO0OT0 3208 

IF ACH)J<-1 THEN 350 

IF ACH)J<-1 THEN 350 

IF ACH)J=-1 THEN ACH)J=D:AC25)=AC25) 
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193650 ACB)=ACB)J-1:ACG)=ACG)I+1 

19708 IF ACB)=Q THEN Q=1:GOTO0 3002 

1375@ GOTO 350 

13800 PRINT'Bloque :"; 

18800 GOTO 18300 

28008 ?’ Jet de des 

28128 AS=INTCRNDCG@)x6)+1 

20288 AD=INTCRNDC(I1)%X6)+1 

204808 RETURN 

21008 IF H=Q THEN 22000 

21100 GH=H:GA=<GA+I 

21208 IF GH<=25-A(26) THEN 21300 

21258 ACAC26))=ACAC26))-1 :PRINTAC26) ;",2 
5:";:GOTO 22000 

21308 IF AC25-GH)<=-2 THEN21608 

21400 AC25-GH)=AC25-GH)-1:PRINT 25-GH;", 
25:";:GOT0 22000 

21688 ACAC26))=-ACAC26))-1:ACAC(26)+GH)=AC 
AC26)+GH)+1 

21788 PRINTAC26);".";AC26)+GH;":"; 

22088 IF ACAC26))<=-0 THEN AC26)=A(26)+1: 
GOTO 22000 

22030 IF AC26)>24 THEN PRINT:PRINT"  %xx 
JE GAGNE 29 xX'":END 

22050 IF G=-Q THEN 350 

22100 IF GA=1 OR GA=3S THEN GA=GA+] :GH=G: 
GOTO 21200 

22208 IF G=H AND GA<4 THEN 21108 

22580 GOTO 35G 

308000 PRINT" XXX TABLEAU XXX' 

38058 LINECAG,23)-C119,23) 

30108 FOR I=1 TO 12 

30150 IF I=7 THEN LINECG,23)-(119,23) 
38208 IF I<1@ THEN PRINT" 

38300 PRINTI; 

304800 X=ACI) 

3050@ GOSUB 33200 


32520 
52550 
38550 
38578 
380580 
30680 
32700 
30800 
30850 
30300 
31200 
31100 
31200 
31300 
31350 
31400 
31450 
31500 
31608 
31650 
31780 
31800 
328008 
33200 
33100 
33200 
33300 
33400 
33450 
33500 
33600 
33/00 
33800 
33300 


QU=ABS(ACIJIJI:QE-=ABSCAC25-I)) 
IF QW+QE>10 THEN 30680 
FOR QR=I TO 11-QWU-QE 
PRINT" "; 

NEXT GR 

*=AC25-I) 

GOSUB 33280 
PRINT2S-I 
GH=]1B20XUALCINKETS) 
FOR J=1 TO GH:NEXT J 
NEXT I 
LINEC@,23)-(119,23) 
IF ACO)J<I THEN 31508 
PRINT'"'Ordinateur :"; 
*=AC@) 

GOSUB 33208 

PRINT 

IF AC25)>-1 THEN 32000 
PRINT'Joueur AE 
*=AC25) 

GOSUB 33200 

PRINT 

RE TURN 

IF X=-Q THEN 33300 

IF X<Q THEN 33500 
FOR K=1 TO Xx 
PRINT'"@' ; 

NEXT K 

GOTO 339300 

R=—X 

FOR K=1 TO Xx 
PRINT'"'O" ; 

NEXT K 

RETURN 
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Explications : 


200 
300 


330 
350 
650 


700 
1450 
2750 
2900 
3220 


3290 


3300 


3400 


3600 


4600 
5600 


6600 
7600 


8600 
19000 
19800 
20000 
21000 
30000 
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On définit 40 mémoires numérotables. 


Emplacement des pions au départ. Vos pions sont négatifs, ceux 
de l'ordinateur positifs. Exemple : A(13) — —5, vous avez cinq pions 
dans la case 135. 


Sous-programme affichage du tableau. 
Sous-programme jet de dés. 


Si la case d'arrivée F est la case O et la case de départ contient un 
de vos pions ‘A(E)<O”’ alors on retire un pion de la case de départ 
"A(E) = A(E) + 1”. 


à 900 Traitement des erreurs. 

à 1700 Test qui vérifiera si vous avez gagné. 

Si des pions de l'ordinateur ont été mangés, on les sortira d'abord. 
G est défini comme le plus petit dé et H comme le plus grand. 


à 3280 On décale la première case A(J) contenant des pions de 
l'ordinateur et on numérote les suivantes. 


On teste si tous les pions de l'ordinateur se trouvent dans les six 
dernières cases. 


Il y a six niveaux de réflexion parcourus par l'ordinateur par ordre 
d'importance. 


Et on fait défiler toutes les cases contenant les pions de l'ordina- 
teur à chaque niveau de réflexion. 


à 3900Siil y a un pion de l'ordinateur seul, il sera protégé s'il 
peut l'être. 


à 4700 S'il y a un pion du joueur seul, il sera mangé. 


à 6000 S'il y a possibilité de bouger simultanément deux pions 
afin qu'ils se protègent mutuellement, ce sera fait. 


à 6700 On bougera d'abord les pions seuls. 


à 7700 On bougera ensuite les pions se trouvant dans une case 
où ils sont plus de deux. 


On bougera n'importe quel pion. 

à 19750 Sortie des pions de l'ordinateur. 

On est bloqué lorsque on ne peut pas les sortir. 
à 20300 Sous-programme du jet de dés. 

à 22500 Sortie des pions du dernier tableau. 

à 33900 On imprime le tableau. 


Exemple : 


Vous voyez apparaître le tableau qui défile sous vos yeux. Si le défilement 
est trop rapide vous avez la possibilité de le freiner en pressant la touche 
[1] … [9] selon le temps d'attente désiré. 


Dés 5.4 
Jouez? 


Vous voyez apparaître le jet des deux dés: 5 et 4. Vous n'êtes pas obligé de 
considérer les dés en question et vous pouvez utiliser des dés réels; mais 
par souci de commodité une série aléatoire de deux dés apparaît. 


Le droit de commencer la partie se joue à pile ou face, si vous gagnez, vous 
commencez. 


Supposons que l'ordinateur commence ! 


Répondez @ pour que l'ordinateur joue. 


jouez ? [5] [RETURN] 
4 4 


Mes dés? 


(vous entrez les dés de l'ordinateur). 


Mes dés (4 


1,5 : 1,5 : 19,23 : 19,23 
Dés : 5.2 
Jouez? 


Ici vous avez le mouvement de l'ordinateur qui déplace deux pions de la 
case 1 à la case 5 et deux pions de la case 19 à la case 23 caril a fait un 
double. 


Vous avez la possibilité de consulter le tableau en faisant —1. 


Jouez 2[-] 


tableau 
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Dés 5 .2 
Jouez? 


Si vous déplacez un pion de la case 13 à 11 puis de 11 à 6, faites: 


jouez? [1] BJ) CT] (RETURN 
jouez? [1] (7 (IE (RETURN) 


Attention prenez bien garde de mettre un zéro devant le 61! 


Lorsque c'est à l'ordinateur de jouer, faites: 


Jouez? 


Et ainsi de suite... 
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En cas d’erreur.. 


Tous les programmes de cet ouvrage ont été testés plusieurs fois et les 
listings sont une photocopie des listings de l'imprimante. Une erreur de 
listing serait donc tout à fait exceptionnelle. 


Il est plus logique que vous ayez fait une erreur au moment du recopiage. Il 
est souvent facile de la déceler en listant la ligne de l'erreur et en la 
comparant. 


Mais parfois, l'erreur n'apparaît pas tout de suite. Il faut chercher le type 
d'erreur (codifié par deux lettres), puis tester l'origine de l'erreur. 


Une erreur fréquente de recopiage est de confondre O (zéro) avec O {la 
voyelle). 


Une autre erreur est l'oubli d'inscrire une ligne du programme. 
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REFLE CHISSEZ 
avant de me détruire. 
oui ) = Sars II LA 
Te ne pardonne aucune. 
erreur | MAÏS ce gout 
bien que Vous apprenies| | 
o 
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Tableau des codes de caractères 


FEB à 
RE ES EN EE 
ORBRRRABEMMERHE 


pellets le telel st el 


Peut être défini 
par l'utilisateur 


Peut être défini 
par l’utilisateur 
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Achevé d'imprimer 
par Cid éditions 
Dépôt légal: avril 1984 
N° d’Éditeur : 4086 


Cet ouvrage vous plongera dans l'univers passionnant des jeux grâce 
au CANON X07. 


Par le jeu vous découvrirez de nouvelles façons de programmer et de 
nombreuses astuces de programmation qui par la suite pourront vous être 
utiles. La complexité croissante des programmes vous permet de progres- 
ser à votre rythme et chaque ligne de programmation qui présente une 
difficulté est amplement expliquée. 


Toutes sortes de jeux sont abordés, les jeux pratiques, graphiques, 
musicaux, mathématiques, économiques, jeux d'adresse, de réflexion et 
de société. Montrez vos dons de manager face à d’autres joueurs en 
sachant investir dans le Jeu d'entreprise. Ou alors battez votre propre 
record au Pacman puis essayez de battre l'ordinateur aux Dames ou au 
Backgammon. 


Autant de défis qu'il vous faudra relever. Et en récompense assistez 
au Cinéma Musical qui vous surprendra. 


Les jeux proposés seront pour vous une source abondante de divertis- 
sement. À vous de les découvrir ! 
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